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PART I : PROGRAMMER'S GUIDE 



Introduction 

The principal achievement of an assembly program is that it almost completely 
relieves the programmer of the problem of assigning actual storage locations 
to instructions or quantities manipulated by the program. If, in the course of 
programming, he wishes to refer to any location in storage which will contain 
some quantity used by the program, he gives this location a "name", preferably 
one of high mnemonic value, and refers to it by means of this name. Thus, 
salary might be stored in "WAGES", sin x in "SIN X". The assembly program 
assigns actual locations to these "names" and produces an absolute machine 
language program . 

SOAP II is a symbolic assembly program for the IBM 650 Data Processing System . 
It is designed to assemble programs written for any array of equipment including 
tapes, printer, immediate access storage, indexing registers, floatingpoint, 
disk storage and inquiry stations . The assembly program itself uses none of 
these features . It will operate on a basic 650 having an alphabetic device . Special 
features described in the sequel should render it equally useful for both 
scientific and commercial applications . 

Definition of Terms 

L = location 

D = data (address) 

I = instruction (address) 

Tag s character used to specify an indexing register 

FWA = first word address 

LWA = last word address 

OP - operation (code) 

Block = a consecutive group of drum (or core) locations 

Region = a block designated by an alphabetic character 

Pseudo-instruction = an instruction which is never executed 

Symbolizer part = left- most position of L, OP, D or I field 

Absolute part = L, OP, D or I field with symbolizer part deleted 

Available = subject to selection as an optimum drum location whenever the 

assembly program is given freedom of choice 
Unavailable = not subject to the above selection 
Reserve = to make unavailable 
I. A. S. = Immediate Access (core) Storage 



SOAP II Coding Form and Input Card Format 

Figure 1 shows the coding form to be used when writing for SOAP II . Vertical 
dotted lines separate the symbolizer and absolute parts of the L, OP, D and I 
fields . Observe that the input card format is indicated at the top of the form . 
Punching in columns 1-40 and 73-80 is ignored except for column 2 which 
must not contain a Y(12) punch. 

Instructions and data enter the assembly one word per card. The output is in 
the form of one word per card load cards . 

Specifying Program Area on Drum 

Prior to assembly, the entire drum is available to the program. It is invariably 
necessary, however, to prevent the program from occupying certain drum 
locations, e.g., input -output blocks, tables, data areas, etc. There are three 
pseudo operations which can be used to restrict the assembled program to any 
predesignated parts of the drum: 

Block Reservation: BLR 

This card contains two absolute drum addresses FWA, LWA (FWA < LWA) 
punched in the absolute part of the D and I fields, respectively. All locations 
from FWA to LWA (inclusive) are made unavailable . 

For example, 
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will make drum locations (1500-1900) unavailable. 

Block Availability: BLA 

This card is exactly like a BLR card except that it makes all locations from 

FWA to LWA available . Note that it is generally redundant to put a BLA 

card at the beginning of an assembly since the entire drunfls already available 

By way of illustration, 
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will make drum locations 1600-1730 available. 

Regional Specification : REG 

This card contains an alphabetic character, punched in the symbolizer part of 
the D field, to be associated with a block defined by the terminal drum addresses 
FWA, LWA. As in the case of a BLR card, all locations from FWA to LWA 
are made unavailable . If the programmer wishes to refer to locations within 
a region using "regional" addresses (see below), an REG card must precede 
the first use of such addresses . 

The REG card 
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defines the block 0027-0036 as region P and causes this block to be made 
unavailable . 

Types of Addresses 



Regional 

A regional address has the form 



AjNNNN| 

where "A" is any alphabetic character and NNNN is a four digit number. The 
regional address of the first word of region B, for example, is B0001 . The 
twelfth word of region R is R0012. 



Note: 



1. The regional address "A "0000 is permitted. It will result in the absolute 
address (FWA-1). 

2. Regional addresses whose absolute equivalents are larger than LWA are 
permitted. For example, if region R is the block 1951-1960, the regional 
address R0015 will assemble as 1965. 

3 . The use of a regional address without a defining REG card will result in 
— the assembled address being left blank. 



Symbolic 

Symbolic addresses have the form 
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where the C's may be any characters acceptable to the alphabetic or special 



character devices subject to the following restrictions: 



1. 



Ce must not be blank. 



2. An address meant to be symbolic must not have a regional form, i.e., 
an alphabetic character followed by four numerical characters . 



Typical symbolic addresses are 
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Symbolic addresses are assigned optimum drum equivalents when initially 
encountered and maintain this equivalence throughout the assembly unless 
redefined. It is possible to preassign a value to a symbol (see EQU, SYN, 
pages 13, 14.) 

Absolute 

Absolute addresses have the form 

JNNNN 
where NNNN is a valid four digit machine address . The symbolizer part of 
an absolute address must be blank. 



Drum locations corresponding to absolute addresses are not made unavailable 
during assembly. Thus, drum locations containing instructions or data 
specified by absolute addresses must be block reserved at the beginning of 
assembly. 



Blank 

Whenever the D or I address of an instruction refers to the location of the "next' 
instruction (or data) written on the coding form, this address and the location 
of the "next" instruction may be left blank provided this order is not altered 
when assembling. Blank addresses will be filled in optimally by the assembly 
program . 

The D and I address of an instruction may both be blank if they both refer to 
the location of the next instruction written. An address should not be left blank 
in an instruction card unless the above meaning is specifically intended. 

Operation Codes 

650 operation codes may be written in either three character symbolic or two 

digit numerical form, e. g., 



RJAL 

J65 

Symbolic operation codes to be used with SOAP II are given in the Appendix. 

Any card containing an illegal symbolic op code will be considered an instruction 
and processed accordingly. The assembled op will be left blank. 

Numerical Data 

Numerical data are written using the absolute part of the OP, D and I fields, e.g. , 
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The symbolizer parts of these fields must be blank. Leading or trailing zeros 
must be punched in the card. 

Alphabetic Data: ALF 

The pseudo-op card ALF permits the programmer to enter alphabetic information 
into the 650 on load cards, up to five characters per card. Any characters 
acceptable to the alphabetic or special character devices are permissible, and 
are written in the D field. During assembly, alphabetic data are converted to 
their numerical equivalents and the latter are punched as a ten digit number 
in exactly the same manner as numerical data. For example, 
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will cause the number [69, 62, 74, 75, 88J to be loaded into symbolic location 
EDPM. 



Similarly, 
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will load [00,97,90,95,00] into (core) location 9010. 

Note: The I address of an ALF card is not used by SOAP II. However, if it is 
blank, it will be filled in by the symbol "SOAP 2". This is merely an 
artifice employed to avoid erroneous error detection when listing output 
(See Appendix-407 Control Panel). 

Signs 

Any punch in column 42 signifies a negative instruction or negative data. For 
coding purposes, a (-) written in the sign column and punched as X (11) will 
suffice . A blank in column 42 is interpreted as positive . 

Comments Card: Type 1 

Every card processed by SOAP II may contain remarks not exceeding 10 
characters in length. When longer remarks are desired, a comments card, 
which may contain up to 30 characters, may be used. Comments cards have 
no effect on the assembly. They are merely reproduced in the output deck. 
The following figure shows the format for comments cards . Note that the 
type (1) is punched in column 41 . 
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Example .1 



Prepare a table of 



F(x) = Ax + Bx + C 



for 



x = 1, 2, , 100 

assuming A, B, C integers and | F(x) | < 10 
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Coding is given in Figure 2. The assembled program is shown in Figure 3. 
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Example II 



Given a rate code and number of hours worked, search a rate table and calculate 
gross pay. 



Input: 



/ 

IDENT. 
1- -5 


•RATE 
COPE 

X 

6 


HOURS 

XX-X 

7- -9 





T 



WORD I 



WORD 2 WORD 3 



Word 1: 00000, xxxxx = Identification 
Word 2: 00, OOOx, 0000 - Rate Code 
Word 3: 00 00000 xx.x = Hours 

The rate code is a one digit number 0-9 . The corresponding hourly rate (x.xx) 
is in the low three positions of locations 0000-0009. 



WORD 1 WORD 2 WORD 3 WORD 4 



Output: 



IDE/VT 
I- -5 



KATE 
CODE 

X 

6 



HOURS 

XX*X 

7- -5 



QROSS 

XXX-XX 
10- -1+ 



Coding is shown in Figure 4. The assembled program is given in Figure 5. 
Indexing 

When the D or I address of an instruction is to be modified by an indexing 
register, the corresponding TAG column is used to indicate the appropriate 
indexing register. Permissible tags are A, B, C or 1, 2, 3. The assembly 
program will automatically add the proper multiple of 2, 000 or 200 to a tagged 
address . 

For example, the following program will perform the vector addition 

x. + y. = z., i = 1, 2, . . . , 100. The x, are stored in region X, y. in region Y 

and z. in region Z. 
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COL 


. 41 


42 


43! 44- -47 

1 


48J49, 50 


81 ]S2- -SSJS6 


57J58- -6I|62 


63- -72 




T 
Y 

P 
E 


8 
1 

6 
N 


LOCATION 


OPERATION 
CODE 


DATA 
ADDRESS 


T 


INSTRUCTION ! T 
ADDRESS [g 


REMARKS 








1 
1 

1 


R|SA 


joioo 




AiDD 












AiDD 


RIAL 


Xioioi 


A 














1 
1 

1 


AiLO 


Yioioi 


A 














1 
1 

1 


SiTL 


ZI0101 


A 














1 
1 


AjXA 


;O00| 
















1 
1 


n'ia 


A|DD 




| < 


> 




















' 


1 







The following types of D or I addresses will not be indexed even if a tag is 
present: 

1 . Undefined symbolic 

2. Blank 

3. Not in the range 0000-1999 or 9000-9059. 

Predefining Symbols 

The following two pseudo operations may be used to preassign a value to a 
symbolic address: 

Equivalence : EQU 

The symbol written in the D address is assigned the equivalent of the expression 
written in the I address. The I address may be absolute, regional or symbolic. 
If the I address is regional or symbolic, it must have been previously defined. 





The EQU card 
















COL. 


41 


42 


43! 44- -47 


48i49, 50 


51 [52- -55;56 


57i58- -6h62 

• • — 


63- 




-72 




T 
V 

P 
E 


s 
i 

G 
N 


LOCATION 


OPERATION 
COOK 


DATA J I 
ADDRESS j e 


INSTRUCTION 
ADDRESS 


T 
A 
G 


REMARKS 








1 
1 

1 


E;QU 


TiAPEI 1 


!80IO 







will cause the symbol TAPE 1 to be assigned the value 8010 whenever it sub- 
sequently appears during assembly. 

The EQU card 



COL. 


41 


42 


43! 44- -47 


48149, 50 


5IJ52- -55;56 


57|58- -6M62 

1 1 — 


63- -72 




T 
V 

E 


s 
1 

G 
N 


LOCATION 


OPERATION 
CODE 


DATA J I 
ADDRESS j Q 


INSTRUCTION 1 I 
ADDRESS \q 


REMARKS 








1 
1 
1 


EiQU 


CiODE 




•RiO 002 







will cause the symbol CODE to be assigned the value R0002, i . e . , the second 
word of region R. Region R must have been previously defined by an REG card, 

Similarly, the EQU card 



COL. 


41 


42 


43! 44- -47 


48J49, 50 


51,52- -55;56 


57i58- -61162 


63- -72 




T 
Y 

P 

E 


s 

1 

G 
N 


LOCATION 


OPERATION 
OODS 


■ T 

DATA ; A 

ADDRESS j 6 


INSTRUCTION 1 I 
ADDRESS (8 


REMARKS 








1 
1 

1 , . 


e|qu 


AiLPHA 




BIETA 







will assign to ALPHA the value previously assigned to BETA. 
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Synonym: SYN 

An SYN card is exactly like an EQU card except that the equivalent of the 
expression written in the I address must be a drum address, i.e., 0000£ 
"I" £ 1999. This drum location is made unavailable to the program. The I 
address may be absolute, regional or symbolic. 

The SYN card 



COL. 


41 


42 


43! 44- -47 

• 


48J49, 50 


5IJ5E- -55;56 


57i58- -6li62 
• i 


63- -72 




T 
V 

2 


s 

i 

6 
N 


LOCATION 


OPERATION 
CODE 


DATA 1 I 
ADDRESS | § 


INSTRUCTION ! T 
ADDRESS |g 


REMARKS 








i 
i 

i 


S;YN 


EjNTRY 




\\Z05 I 





will assign the value 1205 to the symbol ENTRY and reserve location 1205. 

If the I address of an EQU or SYN card is undefined, the card will be ignored. 
EQU or SYN takes precedence over any previous definition. 

Assembly Capacity and Speed 

During assembly, all symbolic addresses and their equivalents are stored in a 
symbol table which can accommodate 400 symbols. Programs containing more 
than 400 symbolic addresses should be assembled in separate blocks . Non- 
overlap can be guaranteed by use of an availability punchout described in the 
next section. 

Assembly progresses at the rate of 50 to 90 cards per minute . This will decrease 
somewhat if the symbol table becomes densely packed or if few drum locations 
are available for the remaining program . 

Punching Availability Table: PAT 

The availability table is a 200 word table used by SOAP II to "remember" those 
drum locations already used and those still remaining,.. The pseudo-op PAT can 
be used at any time during assembly to cause punching of this table in a highly 
readable form. The output will be fifty Type Y (12) cards, one for each 
dynamic drum level (00-49). These cards may be listed with the 407 control 
panel described in the Appendix. This listing will reveal at a glance all drum 
locations used by the program (0) and those remaining (1) for additions or 
corrections . * . 

The availability table may be loaded as input to an assembly thus restoring the 
*See page 91 . 
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availability status which existed at some point of a prior assembly. 
Order of Assembly Deck 

The assembly input deck should have the following order: 

1 . SOAP II 

2. Deck to be assembled 

Due to the one pass nature of the assembly, priority for the choice of optimal 
locations diminishes as the assembly progresses. Thus, frequently executed 
portions of the program should be placed toward the beginning of the assembly 
deck. 

Multifile Assembly: BOP 

Any number of independent programs may be assembled in one pass . Merely 
place a pseudo-op card BOP (Beginning of Program) between each program, i.e., 



£0P 



\ Vrog,. "5 
\ Trog,. Z 



§ I Trog,. I 



} 



SOAF3T 



Note that it is redundant to place a BOP card before the first of one or more 
programs to be assembled. 

Machine Operator's Guide 

1 . 533 Read-Punch Unit 

a . Insert SOAP II control panel 

b. Ready read feed with assembly deck 

c . Ready punch feed with blanks 

2. 650 Console 

a . Set programmed switch to STOP 

b . Set half cycle switch to RUN 
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c . Set control switch to RUN 

d. Set display switch to DISTRIBUTOR 

e . Set overflow switch to SENSE 

f . Set error switch to STOP 

3A. If SOAP II is being loaded, set (70, 1951, 9999) in storage entry switches . 

3B. If SOAP II is already on the drum, do one of the following: 

1 . Set (00, 0000, 1000) in storage entry switches . 

2. Precede input with a BOP card and set (00, 0000, 1950) in storage 
entry switches . 

4. Press computer- reset key 

5. Press program-start key 

6. When read hopper empties, press end of file key 

7 . The availability table may be obtained manually by sending control to location 
1900 . 

Programmed Stops 

0111-Symbol table full; pressing program -start key will continue assembly. 
Symbolic address which cannot be assigned an equivalent will be left 
blank in the output. 

0222-Drum packed, i.e., no locations available for remaining program . 

Pressing program-start key will continue assembly. Addresses which 
cannot be assigned will be left blank in the output. 

There are no other programmed stops . 

Program Decks 

Copies of the condensed SOAP II program deck corresponding to the listing 
shown on pages 92-94 of this manual are available from 

650 Program Librarian 

International Business Machines Corporation 

590 Madison Avenue _____ 

New York 22, New York 
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APPENDIX 



Heading: HEP 

Heading is used to avoid duplicity of symbols when several programs or several 
sections of a single program are to be assembled together. The need for heading 
is paramount if several persons have contributed to a program or when a program 
employs symbolic library routines . 

Heading is accomplished in SOAP II by the automatic insertion of a heading 
character into the right- most position of symbols having this position blank. The 
heading character is punched in the symbolizer part of the D address of a HED 
card. Thus the symbol 



TiW 
i 



U b b 



(b = blank) 



subsequent to the heading card 



COL. 


41 


42 


43! 44- -47 

1 


l 
48i49. 50 


5IJ52- -55J56 


57j58- -6IJ62 


63- -72 




T 
V 


s 
i 

« 

N 


LOCATION 


OPERATION 
CODI 


DATA i I 
ADDRESS ; § 


INSTRUCTION 1 I 
ADDRESS J § 


REMARKS 








1 
1 


H|ED 


z! 




1 
1 

1 







is processed by the assembly program as if it were actually the symbol 



T|W O b Z 



In order to make effective use of heading, it is necessary to agree before hand 
to restrict all symbols to four characters or less.* Prior to assembly, each 
of the various sections of the program is preceded by an appropriate HED card. 

If within a section of the program headed by "A" it is desired to refer to the 
symbol (TAX bb) appearing in a section headed by F, simply use the symbol 
(TAX bF) . The small b, for blank column, is necessary to prevent the card 
punch operator from closing up the symbol and thus taking the "F" out of the 
heading column . 



*If a symbol is to be referred to by several headed parts of the program, then 
it is best that this symbol not be headed anywhere . This can be accomplished 
by making it a five -character symbol . 
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The effect of a heading card is terminated only by another heading card . If it is 
desired to terminate a heading card without introducing a new heading, use a 
HED card with a blank D address . Any character acceptable to the alphabetic 
or special character devices may be used for heading. 

80QX Instructions 

When the D or I address of an instruction located in 800X (X a 0, 1, 2, 3, 5, 6, 
7) is to be optimized by the assembly program, an instruction located in 8Q0X 
should be written on the coding form. 800X instructions will be automatically 
bypassed when loading the assembled output . 

Use of Library Programs 

Within the framework of SOAP II, library programs are in either symbolic or 
relocatable form. Both of these forms are discussed in the following two 
sections . 

Symbolic Library Programs 

Symbolic library programs are written in exactly the same form as the main 
program. Except for the entry and exit symbols, all symbols are four characters 
or less . They may thus be conveniently headed. It is important to note that 
such programs do not incorporate a "guaranteed" optimization. 

Relocatable Library Programs: REL 

Whenever tigjit optimization is required, one should use relocatable library 
programs . These are coded in absolute and may be translated an amount 
specified by the programmer . This is accomplished by use of the pseudo 
operation REL (relocate). The number punched in the absolute D address 
specifies the amount of drum translation, A n - Similarly, the absolute I address 

specifies the amount of core translation, A . A blank field is interpreted as 
zero. Thus 



COL. 



41 



42 



43144- -47 

i , 



48i49, 50 



51 52- 



■55«56 



57i58- 



r6H62 



63- 



-72 



LOCATION 



OPERATION 
0OOS 



DATA 
ADDRESS 



INSTRUCTION i 
ADDRESS | 



REMARKS 



RlEL. 



1200 



OOIO 



would cause drum addresses in the relocatable program following it to be 
incremented by 1200 and core addresses by 10. The REL card 
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COL. 


41 


42 


43J44- -47 


48J49, 50 51 JS2- -55J56 


57J58- -6IJ62 


63- -72 




T 
V 


s 
i 
s 

N 


LOCATION 


OPERATION 
CODE 


DATA j I 
ADDRESS j § 


INSTRUCTION ! I 
ADDRESS [g 


REMARKS 








i 
i 


RjEL 


J0600 




i 
i 

, , ,i 







will increment subsequent drum addresses by 600 and core addresses by 0. 
Only positive translations are permitted. 

Relocatable library programs must be assembled prior to the main program. The 
programmer need not block reserve the drum area used by a relocatable program 
This is automatically performed by the assembly program. 

The effect of an REL card is terminated only by another REL card . 

If a translated drum location is greater than 1999, it is left blank in the output. 
The same applies to a translated core location greater than 9059 . 

Writing Library Programs 

The following two sections are of primary interest to programmers responsible 
for writing SOAP II library routines . 

Symbolic Library Programs 

Entry and exit symbols should be five characters to avoid heading difficulties . 

All other symbols should be four characters or less to permit heading by the 

user. 

Relocatable Library Programs 

Relocatable programs are written in absolute and should use the lowest possible 
drum or core locations in the unrelocated state. The following rules apply 
specifically to these routines: 

1 . A relocatable card is indicated by a 2 punch in the type column (41) . 

2 . Op codes may be symbolic or numerical 

3 . L may be drum or core . 

4. D and I may be absolute or symbolic* 



*Symbolic D or I addresses may occasionally be required to refer to other 
routines . 



19 



5. Absolute addresses may be one of five varieties: 



a. Non- relocatable (Fixed): |F 

b. Drum relocatable:! i NNNN I 

c. Core relocatable: I i NNNN I 



NNNNI 

; 0000 £ NNNN ^1999 
; 9000^ NNNN ^9059 



where NNNN is a four-digit number. In situations where D or I is relocatable 
but not in the range (b) or (c), the usage 



d. Drum relocatable: |D i NNNN 

e. Core relocatable: |C | NNNNj 

will eliminate possible ambiguity. 



6. Absolute D or I addresses in the range 0000-1999 or 9000-9059 after 
possible relocation may be tagged' for indexing by the assembly program 

7. If L, after possible relocation, is a drum address, it will be made 
unavailable. D or I drum addresses are not reserved. 

Two pseudo operations, RBR and REQ are designed for use with relocatable 
programs . 

Relocatable Block Reservation : RBR 

The pseudo operation RBR is identical to BLR except that the drum addresses 

FWA, LWA are incremented by A n prior to reservation. For example, if 

A = 1000, 
D 



— — — 
COL. 


41 


42 


43! 44- -47 

1 


48149, 50 


5l]52* -55;56 


57|58- -61162 


63- -72 




T 
V 


s 
i 

e 

N 


LOCATION 


OPERATION 
CODE 


DATA J I 
ADDRESS ; § 


INSTRUCTION 1 T 
ADDRESS \q 


REMARKS 








1 
1 


R;BR 


10025 




\ 0050 







will cause drum locations (1025-1050) to be reserved. 

The use of RBR is mainly for drum routines which use erasable blocks within 
the routine . Reservation of these blocks is easily accomplished with RBR cards 
thus avoiding the necessity of a large number of cards simply to reserve 
erasable areas . 

Relocatable Equivalence : REQ 

The pseudo operation REQ enables symbolic linkage of the main program with 
relocatable programs . REQ is similar to EQU except that the absolute I address 
is incremented by A or A prior to being assigned as the equivalent of the 
c D 
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COL. 



symbol in the D address . The I address must be absolute, type (b) or (c) 

57! 58- -6II62 



(see 5 above) . Thus if A c = 0020, 



41 



42 



43I44- -47 



LOCATION 



48i49, 50 



OPERATION 
0008 



RlEQ 



51 52* -55«56 



DATA J I 
ADDRESS j q 



-RlAMAC 



INSTRUCTION i I 
ADDRESS | g 



! 10IO 



63- 



-72 



REMARKS 



will assign 9030 as the equivalent of the symbol "RAMAC". 



Similarly, if A ~ 1300, 
D 



COL. 


41 


42 


43! 44- -47 

1 


48'i49, 50 


5l|52- -55J56 


57158- -61162 


63- -72 




T 
V 

P 

e 


s 
i 

6 
N 


LOCATION 


OPERATION 
OODE 


DATA J I 
ADDRESS ; § 


INSTRUCTION 1 T 
ADDRESS |g 


REMARKS 








1 
1 


RJEQ 


T1YFE3 




! OOT5 







will assign 1375 as the equivalent of the symbol "TYPE 3. " 

To illustrate a typical drum-drum* relocatable subroutine, the program given 
in Figure 6, using indexing registers, wilLevaluate the polynomial 

F(x) = a x 11 + a . x 11 " 1 + a n 

N ' n n-1 

where n > and x, a, are floating point numbers . The a/s are stored such that 

L(a A ) 3= L(a Q ) + i 
The calling sequence is 



COL. 


41 


42 


43! 44- -47 
1 


48i49, 50 


51 J52- -55;56 


57J58- -6IJ62 


63- -72 




T 
V 

I 


8 
1 

6 
N 


LOCATION 


OPERATION 
OODE 


DATA 
ADDRESS 


T 
A 
6 


INSTRUCTION 
ADDRESS 


T 
A 
6 


REMARKS 












R;AL 


CiV/ 




















UDD 


X! 




















RlAC 


NiEXT 




PIOlyx 







where 



CW= L 



00, {L(a ) + 2000]« , n] 
00, (L(a ) + 200 } , n] 



if the a. are on the drum 
1 

if the a. are in core 



The routine will exit to (drum location) NEXT with the result in the upper 
accumulator. 

*Loaded onto and executed from the drum . 
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COL. 


41 


42 


43c 44- -47 

1 


48J49, 50 


SI J82- -SSJ56 


57i58- -61(62 


63- -72 




T 
V 

i 


8 

1 

s 

N 


LOCATION 


OPERATION 
OODE 


DATA 
ADDRESS 


It 
: A 

6 


INSTRUCTION 
ADDRESS 


T 


REMARKS 




z 






000 9 


SiTP 


\OOi3 




\OOI6 




SAVE X 




z 






ooie 


l:pd 


IOO/9 




\0OII 




\ SET APPR. OF do 




z 






OOI 1 


SiDA 


|ooi<? 




\oooi 




J 




z 






ooo\ 


T?iAA 


F 80OZ 




iOO/O 




Y\-+ r.A A 




z 






oo\o 


FjMP 


;0OI3 




JOO/9 




c ;-x 




z 






0OI9 


F|AD 


Fj<n<n 




\oooz 




( )-x + a.t->( ) 




z 






oooz 


NIZA 


I 0005 




f\oooo 


c 


IS fl= 




z 






0OO5 


S|XA 


FOOO! 




[OOIO 




n-i-»n 




z 






0Q\3 


\o\ 


F\00OO 




F oooo 




ERfiSEABUE (X) 












r|eq 


PIOLYX 




^ooo<? 




DEFINE ENTRY 



Figure 6: Relocatable Drum- Drum Subroutine 

The relocatable drum-core* subroutine given in Figure 7 will evaluate K! 
where K > and K! < 10 . The calling sequence is 



COL. 


41 


42 


43l44- -47 

• 


48;49, 50 


5l]52* -55;56 


57i58- -61(62 

1 j 


63- -72 




T 
V 

E 


s 
1 

G 
N 


LOCATION 


OPERATION 
CODE 


DATA J I 
ADDRESS J § 


INSTRUCTION 
ADDRESS 


1 


REMARKS 










RiAL 


Ki 


















l:dd 


EiXIT 




C1ALKF 







The result will be in the lower accumulator on exiting from the subroutine . 
Note that whereas seven core locations are required for execution, only- 
six drum locations are needed to store the subroutine. Savings of this 
kind may usually be effected by placing erasable locations at the end of drum- 
core routines . 



*Loaded onto the drum and executed in core 
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COL. 


41 


42 


43! 44- -47 


48l49, 50 


8IJ82- -ssjse 


57! 58- -61 «62 


63- -72 




T 
V 

I 


s 
1 

6 
N 


LOCATION 


OPERATION 
0008 


't 
DATA I 

ADDRESS g 


INSTRUCTION 
ADDRESS 


T 


REMARKS 




z 




ioooo 


SjTD 


i 9006 




! 9001 




STORE EXIT 




z 




\OOOI 


RIAA 


F| 80 02 




! 900Z 




K->XA A 




z 




i oooz 


SlXA 


FIOOO/ 




\ °I003 




(K-0 W *•*• A 




z 




\oooz 


NiZA 


9004 




\ 9006 




IS (K-0=O 




z 




;ooo4- 


RIAU 


F\QOOZ 




1 9005 




( )->u/> 




z 




10005 


MJPY 


Fj 8005 




j 9002 




c )(k-p; 








\ 
1 

1 1 


RiEQ 


CIALKF 




\9000 




&BFWE ENT&Y 



Figure 7: Relocatable Drum -Core Subroutine 
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Numerical 



SYMBOLIC 650 OPERATION CODES 



Symbolic* Operation 



00 
01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 



NOP 

HLT 

UFA 

RTC 

RTN 

RTA 

WTN 

WTA 

LIB 

LDI 

AUP 

SUP 



DIV 

ALO 

SLO 

AML 

SML 

MPY 



No Operation 

Halt 

Unformalized Floating Add 

Read Tape Check 

Read Tape Numeric 

Read Tape Alphanumeric 

Write Tape Numeric 

Write Tape Alphanumeric 

Load I. A. S. Block 

Load I . A . S . 

Add Upper 

Subtract Upper 

(Not Used) 

(Not Used) 

Divide 

Add Lower 

Subtract Lower 

Add Magnitude to Lower 

Subtract Magnitude from Lower 

Multiply 



5 All O's in symbolic OP codes are alphabetic O's, not numerical zeros. 
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Numerical 


Symbolic 


20 


STL 


21 


STU 


22 


SDA 


23 


SIA 


24 


STD 


25 


NTS 


26 


BIN 


27 


SET 


28 


SIB 


29 


STI 


30 


SRT 


31 


SRD 


32 


FAD 


33 


FSB 


34 


FDV 


35 


SLT 


36 


SCT 


37 


FAM 


38 


FSM 


39 


FMP 



Operation 

Store Lower 

Store Upper 

Store Data Address 

Store Instruction Address 

Store Distributor 

Branch No Tape Signal 

Branch on Inquiry 

Set I.A.S. Ring 

Store I.A.S. Block 

Store I.A.S. 

Shift Right 

Shift and Round 

Floating Add 

Floating Subtract 

Floating Divide 

Shift Left 

Shift Left and Count 

Floating Add Magnitude 

Floating Subtract Magnitude 

Floating Multiply 



25 



Numerical 



Symbolic 



Operation 



40 
41 
42 
43 
44 
45 

46 

4? 

48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 



NZA 

BMA 

NZB 

BMB 

NZU 

NZE 

BMI 

BOV 

NZC 

BMC 

AXA 

SXA 

AXB 

SXB 

NEF 

RWD 

WTM 

BST 

AXC 

SXC 



Branch Non-Zero I.R. A 
Branch Minus I . R . A 
Branch Non-Zero I.R. B 
Branch Minus I.R. B 
Branch Non-Zero Upper 
Branch Non-Zero 
Branch Minus 
Branch on Overflow 
Branch Non-Zero I.R. C 
Branch Minus I.R. C 
Add I.R. A 
Subtract I.R. A 
Add I.R. B 
Subtract I.R. B 
Branch No End of File 
Rewind 

Write Tape Mark 
Backspace Tape 
Add I.R. C 
Subtract I.R. C 
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Numerical 


Symbolic 


60 


RAU 


61 


RSU 


62 


- 


63 


- 


64 


DVR 


65 


RAL 


66 


RSL 


67 


RAM 


68 


RSM 


69 


LDD 


70* 


RD1 


71* 


WR1 



72 
73 
74 
75 
76 
77 
78 



RC1 
RD2 
WR2 
RC2 
RD3 
WR3 
RC3 



79 RPY 

*SOAP II will also accept the symbolic op codes 

70 RCD Read Card 

71 PCH Punch 



Operation __^_ 

Reset Add Upper 

Reset Subtract Upper 

(Not Used) 

(Not Used) 

Divide Reset Upper 

Reset Add Lower 

Reset Subtract Lower 

Reset Add Magnitude into Lower 

Reset Subtract Magnitude into Lower 

Load Distributor 

Read Input Storage 1 

Write Output Storage 1 

Read Conditional Input Storage 1 

Read Input Storage 2 

Write Output Storage 2 

Read Conditional Input Storage 2 

Read Input Storage 3 

Write Output Storage 3 

Read Conditional Input Storage 3 

Reply 
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Numerical 


Symbol 


80 


RAA 


81 


RSA 


82 


RAB 


83 


RSB 


84 


TLU 


85 


SDS 


86 


RDS 


87 


WDS 


88 


RAC 


89 


RSC 


90 


BDO 


91 


BD1 


92 


BD2 


93 


BD3 


94 


BD4 


95 


BD5 


96 


BD6 


97 


BD7 


98 


BD8 


99 


BD9 



Operation 

Reset Add I. R. A 

Reset Subtract I . R . A 

Reset Add I. R. B 

Reset Subtract I . R . B 

Table Lookup 

Seek Disk Storage 

Read Disk Storage 

Write Disk Storage 

Reset Add I. R. C 

Reset Subtract I . R . C 

Branch on 8 in Distributor 10 

Branch on 8 in Distributor 1 



Branch on 8 in Distributor 9 
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COL. 


41 


42 


43! 44- -47 


4ffl49, 50 


51 [52- -55;56 


57J58- -6IJ62 


63- -72 




T 
V 

P 

c 


8 
1 

6 
N 


LOCATION 


OPERATION 
CODE 


DATA J I 
ADDRESS ; § 


INSTRUCTION IT 
ADDRESS jg 


REMARKS 












BiL/R 


j FWA 




1 LWA 
















BlLA 


j FWA 




j LWA 
















"RlEGj 


*! FWA 




! LWA 




#. = ALPHABETIC CHAR. 












E!QU 


5YMBL 




j ANY 
















SjYN 


SJYMBL 




1 ANY 
















a'lf 


X|XX X X 




















BIOP 


1 
1 








— 












HJED 


# i 








# « HEADING CHAR- 












PlAT 


1 
1 




















R;EL 


! Aa> 




! A c 
















RjBK 


! FWA 




i LWA 
















RIEQ 


S'.YMEL 




j NNNN 







Summary of Pseudo Operations 



29 



fc 



O 



M 
0) 

O 
0) 

w 



<0 

^ ui 
u 



K«lg- A 



o 

QL 



Kv5* 



ft 






a. 
o 



o 

P 

o 



</>-c5Z 



h>~fi-qj 



5* 



X 

X 



30 



O 

o 
o 

00 

o 
o 
o 

o 



a- R 



JBi 



PL, 



T3 






n u 
I 2 



5 * 



UI 



ft. 

Ui 



K 



x 

x 

x 

X 

■s 

X 
X 
X 

X 
X 



X 
X 
X 



•{ 



CM 



X 
X 
X 
X 



<3 



K 



") 



O to 
00 



o 

•d 

o 

I 

X 
o 
o 

00 



ft 

Ui 

-J 

CO 



5 
p 



N 



2 » 






a 
o 

Ui 



h 



X 
X 
X 
X 

x^ 

X 
X 
X 

x" 

X 



rt) 



VII 

VII 

o 
o 

<L>" 

■3 

r— I 

•a 



8 

O 
00 

-\ 
X 

o 
o 

00 



c* 



^ 



o 
o 
o 

00 



cr 

C9 



>2_ 



>- 



o 

II 

X 



X 
X 
X 
X 

X 

X 
X 

X 

X 

X 



X 

o 

<o 

«•* 
*f 

s 

o 



X 
X 
X 
X 
X 
X 
X 
X 
X 
X 






X 
X 
X 
X 
X 
X 
X 
X 
X 
X 





■f 
o 

n 
8" 



o 



8 



^ 



© 



u> 



o* 



407 Control Panel 

The 407 control panel shown in Figure 9 will detect the following situations in 
the assembled output: 

Note # 

1 - Instruction * with blank L following an instruction with D and I both not 

blank . 

2 - Instruction with L not blank following an instruction with either D or I 

blank. 

3 - Instruction with blank L not preceded by an instruction. 

4 - Non- instruction following an instruction with D or I blank. 

Notes (1) and (2) always imply a coding error while (3) and (4) are warning 
signals to point out potential coding errors . 

If the assembled L, OP, D or I fields of an instruction have been left blank, 
columns 75-78, respectively, will be x (11) punched. Correspondingly, the 
phrase 

BLANK L, OP, D or I 
will print to the right of the absolute instruction. 

If an EQU or SYN card has been ignored due to an undefined I address or a 
packed symbol table, column 79 will contain a 9 punch causing the word 
"BYPAS" to print to the right of the Remarks field. 



♦Instruction -*■ instruction or data. 
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PART II : PROGRAM ANALYSIS 

Introduction 

The following is a description of the internal operation of SOAP II . An attempt 
has been made to present this description in a logical order beginning with 
allocation of memory followed by an explanation of the tables governing the 
assembly and outline of the various subroutines . 

The symbolic assembly of SOAP II included at the end of this report was arrived 
at in the following manner: 

1 . SOAP II was coded symbolically for assembly by SOAP I. 

2. Deck (1) was assembled by SOAP I, giving SOAP II in SOAP I form. 

3. Deck (1) was translated into SOAP II symbolic form using the SOAP I 
to SOAP II Translator (N.Y.S.C.C. #334). 

4. The symbolic SOAP II form of SOAP II (3) was assembled by Deck (2) 
giving SOAP II in SOAP II form. 

The program is listed in logical order as opposed to the order in which it was 
assembled. 

Memory Allocation 

Figure 1 is a "snapshot" of the drum showing the location of the various tables 
used by the assembly program and the input-output and program blocks . 

Table Descriptions 

Symbol Table: 0000-0399 

Every symbol processed by the assembly program is stored in the symbol 
table. An attempt is first made to store a symbol in location L computed as 
follows: ^ 

Let S = XXXXXXXXXX be the ten digit numerical representation of a five 
alphanumerical character symbol . Calculate 

(1001001001) X (S) = YYYYYYYYYY(ZZZ)YYYYYYY — 

Then L is taken to be the integral part of .4(ZZZ). Thus 000 |L < 399. 
It may be seen that all of the digits in S contribute to the formation of L^ . 
Thus different symbols will tend to give rise to different L 's, but the problem 
of duplicity, i.e., different symbols having the same Lp, must be accounted 
for . If a symbol cannot be stored in L (because another symbol has "gotten 
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there first"), an attempt is made to store it in (L + 1). If this too fails, we 
try L + 2, L Q + 3, , L Q + K where K is °(hopefully) small . 

Equivalence Table: 0400-0599 

Whenever a symbol is stored in the symbol table, its four digit equivalent is 

stored in the equivalence table in the following manner: 

Let L be the location in the symbol table containing the symbol . Let 

2 2 

Then the equivalent is stored in the data address or instruction address part of 
(0400 + Q) according as R « or 1 . 

Availability Table: 0600-0799 

The availability table "remembers" drum locations used by the program being 
assembled and those still remaining. Each of the 200 words contains indicator 
digits (0 — unavailable, 1 — available) for ten dynamically equivalent drum 
locations. If these digits are numbered from left to right, P ■= 0, 1, 2, . . . ., 9, 
then the digit corresponding to a drum location L may be found as follows: 

Let L * X lX2 X 3 X 4 . Let 2L . Y^Y^. 

Then 

A « 0600 + Y. + 2(Y Q Y ) 

P*Y 2 
where A is the availability table location whose P digit corresponds to L . 

Example: L = 1238 

2L = 2476 
A = 0600 4- 2 + 2(76) = 0754 
P =4 

Conversely, given A and P, one may compute L as follows: 
Let A-0600 = - + _r 
4 4 

Then L * 500R + 50P + Q 
Example: A = 0754, P s 4 

0754 - 0600 _ 154 . „ . 2 
4 ~~4~ " 38+ T 
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L s 500 x 2 + 50 x 4 + 38 = 1238 

Optimizing Table: 0800-0899 

Information required to optimize 650 instructions is stored in the optimizing 
table . Location (0800 + XX) contains the entry for numerical op code XX where 
00 < XX < 99 . Thus the entry for RAL (65) is in 0865. 

As there is no one rule by which all 650 instructions may be optimized, operations 
having the same or similar optimizing rules have been grouped as shown in 
Figure 2 . The general optimizing rules for these groups are: 



999 
998 
898 
988 
888 



I = D + 8 where 8 = f(D) 

I = L + 8 where 8 * f(D) 

I = L + 8 where 8 = f(D), non-shift 

I = L + 8 shift other than SRD 

I = L + 8 SRD 



Optimizing table entries have the following format: 



E O E 




s 



OABC 



= ODD 

E=EVEN 



where ABC is the group code given in Figure 2 . Thus the entry for RAL is 
(3305040999) . 
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GROUP 
CODE 



999 



998 



898 

988 
888 



OPERATIONS 



UFA, AUP, SUP, DIV, ALO, SLO, AML, SML, 
MPY, STL, STU, SDA, SI A, STD, FAD, FSB, 
FDV, FAM, FSM, FMP, RAU, RSU, DVR, RAL, 
RSL, RAM, RSM, LDD, LIB, LDI, SIB, STI, 
TLU, RD1, WR1, RC1, RD2, WR2, RC2, RD3, 
WR3, RC3, RCD, PCH, RPY 

NOP, HLT, RTC, RTN, RTA, WTN, WTA, 
NTS, BIN, SET, NZA, BMA, NZB, BMB, NZC, 
BMC, NZU, NZE, BMI, BOV, NEF, RWD, 

WTM, BST, BDO, BD1 , BD9, SDS, 

RDS, WDS 

AXA, SXA, AXB, SXB, AXC, SXC, RAA, RSA, 
RAB, RSB, RAC, RSC 

SRT, SLT, SCT 

SRD 



Figure 2: 650 Operation Groups 



Pseudo Operation Entries: 1001-1012 



The twelve pseudo operations have been (art 


# 


Pseudo Operation 


1 


BOP 


2 


BLR 


3 


BLA 


4 


REG 


5 


EQU 


6 


SYN 


7 


ALF 


8 


"PAT 


9 


HED 


10 


REL 


11 


REQ 


12 


RBR 
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The first instruction of a pseudo operation is in location (1000 + #). Thus the 
REL routine begins in 1010 . 

Region Table: 1021-1049 

Origins of the twenty-six possible regions are stored in the region table. The 
instruction address part of location (0960 + XX) contains the first word 
address (FWA) of the region having XX as the numerical representation of its 
alphabetic designation. Thus the origin of region F is in 1026 ( = 0960 + 66). 

The region table is initialized to (8000000000). Processing of an REG card with 
FWA - YYYY converts the appropriate entry to (900000YYYY) . 

Symbolic Op Table: 1050-1164 except 1098-1099 and 1148-1149 
All pseudo operation codes and symbolic 650 operation codes are stored in the 
symbolic op table. The table is in ascending order on the six high digits of each 
entry representing the numerical representation of the alphanumerical op code. 

The table entry for RAL, for example, is (7961730065) while that for REL is 
(7965731010). Thus the I address part of pseudo operation entries is the 
location of the first instruction of the pseudo routine while the two low order 
digits of 650 symbolic op code entries are the corresponding numerical op . 

Type Entries: 1990-1992 

The first instruction for types "blank", 1 and 2 is in location 1990, 1991, 1992 

respectively. 
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1951 
1952 
1953 
1954 
1955 
1956 
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1959 
1960 
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— n a 


TA 
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D A 
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- IN 


STR 
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A 
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ESS- 
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d p 


C 


ODE 








TAG^ 


«-I T 


AG-> 




\J r 




>» 


< u 


•4g 








EMA 


RKS- 
















R 








ik. 


< 






R 


EMA 


RKS- 








>. 














X 


X 


X 


X 














X 


X 


X 


X 














X 


X 


X 


X 
















T 


7 

/ 


/ 


TYPE ( IF BLANK ) — 

ft aNAN RI AMW -rvoc 


k > 


k ; 


k - 


8 ^NEGATIVE 















► ALPHABETIC 



L 
D 



ABSOLUTE 
PART 



FIGURE 3: INPUT BLOCK : 1951—1960 
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1977 
1978 
1979 
1980 

1981 
1982 

1983 
1984 

1985 
1986 



r 



IN 



ASS 



DA 



STR 



OP 



R 



EMB 



LO 



LO 



CAT 



TA 



UCT 



COD 



E M 



E M 



LED 



CAT 



NON-BLANK TYPE 



NEGATIVE 



J 



BYPASS 



PUNCH A 



ADDR 



ION 



A R 



A R 



ION 



B^J 



PUNCH B 



800X INSTRUCTION 



BLANK OUT L- 



ION 



ESS 



DDR 



KS 



K S 



IN 



*~D TAG— » 



STR 



ESS 



UCT 



ARD 



8 



ii D 



«— I 



TAG- 



ION 



NO. 



•i I 



^ 



« OP 



-\ 



y 



ALPHABETIC 



J 



FIGURE 4 ; OUTPUT BLOCK : 1977 - 1986 
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LOAD SOAP II 



LOAD- 
AVAILABILITY 
CARD 



PROCESS OP 



(5D 



PROCESS L, D, I 



INITIALIZE 



<SHl 



EAD 




( TYPE Y 



f PSEUDO ) 1 



PSEUDO ROUTINE 



-*«- 



PUNCH 



L = LOAD CARD 
NL= NO LOAD CARD 





MOVE ALPHA 
INPUT TO OUTPUT 








>f 








STEP CARD NO. 






V 




STORE CONTROL INFO. 






> 


< 







PROCESS OP 



RELOCATE L, D, I 



FIGURE 5 r BASIC FLOW CHART 
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PSEUDO-OPERATION FLOW CHARTS 



G° p j 



INITIALIZE 



T 



(«7j 



RESERVE FWA - LWA 



S 





SET DRUM TAG TO 8 






V 




UNRESERVE FWA - LWA 



I REG J 



IS REGION 
CHAR. ALPHA 



~{v~i 



v ALF ) 



PROCESS LOCATION 



READ W2 -* PUNCH W7 



IS I BLANK 



he- 



SET I = SOAP 2 



STORE REGION ORIGIN 



RESERVE FWA - LWA 

J 





(pat ) 




>' 


PUNCH PAT CARD 




>f 






PUNCH 

AVAILABILITY 

TABLE 






i 


f 






( 

\ READ 





Y 



STORE HEADING 
CHARACTER 



T 



G3 



setA d . A c 



NOTE: EXCEPT FOR PAT, THESE ROUTINES TERMINATE AT PUNCH 
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GE) 



SET TAG = 8 



(■ q 


SET TAG = 8 








SET TAG = 9 



1 £ 



TEST CI— 2000) 




SET 

E = 1+ A D 





A » ABSOLUTE 
R = REGIONAL. 
S s= SYMBOLIC 



SET 
E= 1+ A 



GE) 



RESERVE 
(FWA+A D ) - (LWA+A D ) 



J 



REGION — ( Kl ) . 

DEFINED \T\/ 



CALCULATE 
REGIONAL 
ADDRESS 



TEST 
SYMBOL 



© n?) Gp) 



»<- 



SET 
E s EQU1V. 



SET E S REG. ADR. 



><■ 



TEST SYMBOLIC D 





GE) 



STORE D « E 



SET 
BYPAS 



TEST 
TAG 




RESERVE E 



44 



RELOCATABLE ROUTINE 



PROCESS OP 



ILL. 



CE) 



TEST L 



SET L = L + Ar 



is L<2000 



}<5H 



is L <2000 



— (uy 



Y 



RESERVE L 



SET OUTPUT L 



BLANK OUT L 



fDj (SEE N 



EXT PAGE) 



BLANK OUT OP 



D DRUM 
F FIXED 
C CORE 



SET L = L+ Ac 



is L <9060 



L MAY BE I) |F J NNNN | FIXED DRUM OR CORE 

2) I ! NNNN I RELOCATABLE DRUM OR CORE 
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WHAT IS D 





is D<2000 




is I <2000 




Y 





TEST D. 



N] [D] I C 





SET 

DS D+ A D 



SET 
D= D+ A 



I 



PROCESS D 



WHAT IS I 






N 
L 





TEST I 





SET 
I = 1-f Ad 



SET 



(D as SYMBOLIZER 
PART OF D) 
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PROCESS I 



T 



(PUNCH) 



Subroutines 

SOAP II contains twenty- one subroutines. The following is a description of each 
subroutine giving 

A. Functional description 

B. Entry conditions and entry point 

C . Exit conditions (where applicable) 

D. Flow chart (where applicable) 

1 . Store K in all locations from FWA to LWA 

Entry: UA (K) Go to SUBR1 

LA(00, FWA, LWA) 
DIST (exit) 

2. Reserve or unreserve N sequential drum locations beginning at FWA. ~ 

Entry: UA (00, 0000, FWA) Go to (SUB2R - Reserve 

LA (00, 0000, N-l) I SUB2U - Unreserve 

DIST (exit) 

3 . Process op code and exit to K or (K -I- 1) . 

Entry : DIST (00, 0000, K) Go to SUBR3 

Exit: K: 1 . Legal 650 op; numerical op stored in punch word 7 and 

optimizing table entry stored in "OPTIMV 
2. Illegal symbolic op; "OPTIM" set to (5505050999) and 
punch control word set to blank out assembled op. 

K + 1: Pseudo op (routine begins in 10XX) 
UA (00, 0000, 10XX) 
LA (irrelevant) 

4. Determine whether address is absolute, regional or symbolic and 
accordingly exit to K, (K + 1), or (K + 2). 

Entry : UA (alpha, address) Go to SUBR4 

LA (clear) 
DIST (00, 0000, K) 

Exit: K: Absolute 

K + 1: Regional 1 U A (alpha. address) 

K + 2: Symbolic J LA (clear) 



47 



Note.: If address is symbolic, it is automatically headed and stored in 
"HSYMB. " Upon exiting, the U A also contains the headed symbol . 

5. Test absolute address A and exit to K, (K + 1), (K + 2) or (K + 3). 

Entry : UA (irrelevant) Go to SUBR5 

LA (00, 0000, A) 
DIST (00, 0000, K) 



Exit: K 
K+ 1 
K+ 2 
K+ 3 



A< 2000 

A = 80.0X 

9000 < A < 9059 

Other 



UA (clear) 

LA (00, 0000, A) 



6. Test symbol and exit to K, K + 1, or K + 2. 



Entry : UA (symbol) 
LA (clear) 
DIST (00, 0000, K) 

Exit: K: In table 

Equivalent in I address 
part of "EQUIV" 



Go to SUBR6 



UA (symbol) 
LA (00, L*, 0000) 
"LSYMB" (00, L*, 0000) 



K + l: Not in table 

K+2 Not in table and symbol table packed. 

Note : L* = symbol table location containing symbol on exit K or location 
in symbol table where symbol may be stored on exit (K + 1) . 

7. Store symbol in symbol table L* location and equivalent E in equivalence table 

Entry : UA (symbol) Go to SUBR7 

LA (00, L*, E) 
DIST (exit) 

8. Obtain equivalent E of symbol stored in symbol table location L*. 

Entry : UA (clear) Go to SUBR8 _ 

LA (XX, L*, XXXX) 
DIST (exit) 

Exit: UA (clear) 

LA (00, L*, 0000) 
"EQUIV" (00, 0000, E) 
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9 . Calculate regional address A and exit to K or (K + 1). 

Entry: U A (alpha, regional address) Go to SUBR9 



LA (clear) 

DIST(00, 00 a £ , K); a/3=< 



f90 - L 

88 - D 

89 - I 



Exit: K: UA (clear) 

LA (00, 0000, A) 
K + 1 : Region undefined or A negative . 

10. Set "PUNCH A" 8 in punch control word and execute punch instruction. 

Entry : U A (exit) Go to SUB10 

LA (clear). 

11 . Calculate optimum dynamic address and find and reserve "best" drum 
location L; exit to K or (K + 1). 

Entry : UA (clear) Go to SUB11 

- [90 - L 

LA (00, 00 a$ , K): a£ * \ 88 - D 

1.89 - I 

Exit: K: UA (clear) 

LA (00, 0000, L) 
K+ 1: Drum packed 

12. Set 8 in punch control word to blank out assembled location. 

Entry : UA (exit) Go to SUB12 

LA (clear) 

13. Calculate optimum dynamic address XX. 

Entry : DIST (00, 000 , K) Go to SUB13 

8-D 



"fl: 



Exit: K: UA (clear) 

LA (00, 0000, 00XX) 00 £ XX < 49 



49 



14. Punch availability table. 
Entry; DIST (exit) 

15. Head symbol. 

Entry: UA (symbol) 
LA (clear) 
DIST (exit) 

Exit: UA (headed symbol) 

LA (clear) 

16. Initialize assembly. 
Entry: DIST (exit) 

17. Calculate drum equivalent E of 800X 
Entry: UA (exit) 

Exit: UA (clear) 

LA (00, 0000, E) 

18. Index address A giving A* . 
Entry: 



UA (irrelevant) 
LA (00, 0000, A) 
DIST (00, 00 <X£3, K) 



oC«- 



1 8 -Drum 
>9-Core 



8 --' 8 " D 



Exit: 



UA (irrelevant) 
LA (00, 0000, A*) 



19. Process location. 
Entry: DIST (exit) 

20 . Process data address . 
Entry: DIST (exit) 

21 . Process Instruction address . 
Entry: DIST (exit) 



Go to SUB14 



Go to SUB15 



Go to SUB16 



I 



Go to 1 SB17D - D equivalent 
SB17I - I equivalent 



Go to INDEX 



Go to PROCL 



Go to PROCD 



Go to PROCI 
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SUBROUTINE FLOW CHARTS 



IET L=FWA 



K-4L 



IS L = LWA 



K£> 



EXIT 



L + 1— ►!_ 



SUBROUTINE 1 : STORE K IN FWA - LWA 



<«H 



IS OP SYMBOLIC 



TLU SYMBOLIC OP TABLE 



IS OP LEGAL 



— — ( N V 



IS OP PSEUDO 



— -/yV^T K + > J 



SET OUTPUT NUMERIC OP 



GET OPTIMIZING TABLE ENTRY 



© 



BLANK OUT 
ASSEMBLED OP 



SET ILLEGAL 

OP OPTIMIZING 

CONSTANTS 



SUBROUTINE 3 t PROCESS OP CODE 
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SUB 2R 



SUB 2U 



SET W=0 



SET W = 1 



1 



SET N = N— 1 
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CALC. Ao, Po FOR F\ 



SET Al= Ao, P = Po 



W- (AL, P) 



IS N = O 



N- 1 — ' N 



IS At > Al96 



AL+ 4 — AL 



is P= 9 



P + 1 — P 



Ai-196— Ai 



SET P= 



I 



Al-195— AL 

ZZI 



Y > 



SUBROUTINE 2*. RESERVE OR UNRESERVE N WORDS STARTING AT FWA 



IS C„ BLANK 



HD— © 



1SC 4 C 3 C 2 Ci NUMERIC 



is 61 < c 5 < 89 



<JK) 



K + \ ) 



SUBROUTINE 4 : ADDRESS TEST 



TLU RANGE TABLE GIVING Q 



K+Q 



Q 



RANGE 






0000< A < 1999 


1 


r 8000 < A < 8003 
1 8005 < A < 8007 




2 


9000 < A < 9059 


3 


OTHER 



SUBROUTINE 5 : ADDRESS RANGE TEST 



53 



SET SW OFF 



IS L- MAX. 



SET SW ON 



set i_. L = 0000 



SCRAMBLE SYMBOL. GIVING l_. 



±. 



SET L i = S 



IE C(Lp = 




note: SWSYM SET OFF 

DURING INITIALIZATION 



V Y 



STEP L; 



-0-^5+T) 



GET EQUIVALENT 




#0111 STOP 



SET SWSYM ON 



(Z+D 



•® 



SUBROUTINE 6 : SYMBOL TEST 
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STORE SYMBOL IN U 



* 



CALC. L -Q+R 

7 7 



set L = 400 -I- Q 





(cT> 














(7 s ) 








v u J 




> 




V 








t 


E— -D.A. PART OF l_ 




E— I. A. 


PART OF l_ 


















V 










EXIT 







SUBROUTINE 7: STORE SYMBOL AND EQUIVALENT 



CAI-C. 1_^ Q , R 



set L = 400 + Q 



<!> 



SET E = D.A. PART OF L. 



SET E= I.A. PART OF L. 



i 



SUBROUTINE 8: OBTAIN SYMBOLIC EQUIVALENT 
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set L = 960 -♦- R 



(REG. ADR.= RNNNN) 



TEST C(U) 



calc. A = ORG, + NNNN-1 



TEST A 



KE> 



(j<+T) 



SUBROUTINE 9 : CALCULATE REGIONAL ADDRESS 



SUBROUTINE 10 : (SEE PROGRAM LISTING) 



SUBROUTINE 12 : (SEE PROGRAM LISTING) 
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TEST DRUM TAG 



<?>-<ktt) 



•S A; MAX. 



SET SW ON 



SET A^= 0600 



CALCULATE OPTIMUM 
DYNAMIC ADDRESS 



calc. a = 600 -f 4(D. A. ) 



SET SW OFF 



SET A' = A 



->| IS C(A;) = 




SW 



N 



<N> 



IS A.= Aq 



STEP A' 



STOP 



#222 



SET DRUM 
TAG TO 9 



( K + l ) 



SCT GIVING P 



SET P DIGIT 
TO ZERO 



CALC. L = P(As, P) 



© 



SUBROUTINE 1 1 : FIND AND RESERVE BEST DRUM LOCATION 
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GET D 8 's 



GET EVEN S 



TEST 



<D 



<D 



TEST B 



TEST A 



TL.U D ADDRESS 
TO GET g'S 



:ai_c. L-OR + S 



CAL.C. OR=Q+R 
2 2 






> 


i 




o \- 






r 










K 



GET ODD 



SET D.A. = L MOD. 50 



EXIT 



TLU D, TO 
GET SHIFT S' s 



TEST A 



GET 

OTHER 

8'S 



GET 
SRD 
8'S 



A, B= OPTIMIZING 

INDICATOR DIGITS 

OR = OPTIMIZING REGISTER 
(OPREG) 



SUBROUTINE 13 : CALCULATE OPTIMUM DYNAMIC ADDRESS 
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SET PUNCH B 
CONTROL WORD 



SET A} = A| 



set RS = 0000,0450 



> SET PI a P0001 



> RS-*P1 



is PI =P0007 



P1 T 2-»»P1 



RS+500-*RS 



<D 



I PUNCH 



IS A! MAX. 



set P2 = P0002 



C(A£)—P2 



is P2 =. P0008 



P2+2-HP2 



A t >1 "* A t 



J 



Y h- > 



EXIT 



A t +1 — A|_ 



RS-1499-^RS 



SUBROUTINE 14*. PUNCH AVAILABILITY TABLE 
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IS C| BLANK 





N 



HEAD 



EXIT 



SUBROUTINE 15: HEADING 



SET CARD NO. TO ZERO 



SET HEADING CHAR. TO BLANK 



SET SYMBOL. TABLE AND EQUIVALENCE TABLE TO ZERO 



SET AVAILABILITY TABLE TO 1111111111 



SET DRUM TAG TO 8 



SET SWSYM OFF 



SET REGION TABLE TO 8000000000 



EXIT 



SUBROUTINE 16: INITIALIZATION 



60 



CALCULATE OPTIMUM DYNAMIC ADDRESS 



<D 



TEST D.A. 



<°> 



is X~3 



SET ESD.A, 



{ELEVEN 
Q=ODD 



IS X=2 



SET E = D. A.+ l 



SET EssD.A. 



EXIT 



SUBROUTINE 17 : CALCULATE 800X DRUM EQUIVALENT 



GET D TAG 



TEST # 



1 



calc.8=2000T 



TEST Of 



GET I TAG 



(T = UNITS DIGIT OF TAG) 



10 8— S 



SET A = A + 8 



EXIT 



SUBROUTINE 18 : INDEX ADDRESS 



61 



TEST 

DRUM 

TAG 



SET L=OR 



62 



EXIT 



WHAT IS l_ 



(p (S 6> ® 



* is L <2000 



is L=800X 



ORX-.OR 



is 9000gL^9059 



ORC--OR 



>- L—*OR 



SET L 



IS REG. DEFINED 



CALC. REG. ADR. 



TEST SYMBOL 



SET L=EQ. 




( FULL J 



set D.A.= 00 



FIND AND RESERVE 
BEST L 



<z> 



set 800X 

PUNCH CONTROL 



STORE S»»L 



[B = BLANK 
J A= ABSOL 
} R s REQIOI 

LS SB SYMBC 



{5 = 



SOLUTE 
ONAL 
BOLIC 



FOUND 
PACKED 



BLANK OUT L 



SUBROUTINE 1 9 : PROCESS LOCATION 



CALC. OPTIMUM D.A. 



FIND AND RESERVE 
BEST D 



SET 

D = EQ. 




B 



WHAT IS D 



A) (R 




is D<2000 



& 



> INDEX 



is D=800X 



Y) > s 



> CALC. D = EQ.D 



is 9000 £D< 9059 



<z> 



BRANCH TYPE 






TEST SYMBOL. 




C^T ) Xi^D 



CALCULATE 
OPTIMUM D.A. 



I 



FIND AND RESERVE 
BEST D 



<z> 



STORE Sfe*D 



> SET D 



CALC. D = EQ.D 



IS REG. DEFINED 



CALC. REG. ADR. 



£» BLANK OUT D 



SUBROUTINE 20 : PROCESS DATA ADDRESS 



63 



IS D BLANK 



CAL.C. OPT. D.A. 



K!> F ' 
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IND AND RESERVE 
BEST I 



I — ORB 



TEST 
DRUM 
TAG 



SET I SORB 




WHAT IS I 



A) (R 




is K2000 



V&+\ 



is r=80ox 



K!H 



SET I 



*. CAL. I = EQ.I 



is 9000 ll£ 9059 



-0-Ci 



I 



SET I 



CAI_. I' = EQ.I 

— j— — 



> SET I 



ORB— * OR 



I -*• ORC 



IS REO. DEFINED 



CALC. REG. ADR. 



TEST SYMBOL 

& 35 ged 



SET I = EQ. 



CALCULATE 
•OPTIMUM D.A. 



FIND AND RESERVE 

best r 



STORE S«I 



I 



t'— * ORX 



BLANK OUT I 



SUBROUTINE 21 *. PROCESS INSTRUCTION ADDRESS 









SOAP 2 








SYMBOLIC 


OPTIMAL ASSEMBLY PROG 








FOR THE 










IBM 650 








DATA 


PROCESSING 


SYSTEM 




REG 


SOOOO 


0399 


SYMBOL TAB 




REG 


E0400 


0599 


EQUIV TABL 




REG 


A0600 


0799 


AVAIL TABL 




REG 


N0800 


0899 


NUM OP TAB 




BLR 


1000 


1000 


ENTRY 




BLR 


1001 


1012 


PSEUDO ENT 




BLR 


1021 


1049 


REG TABLE 




REG 


C1050 


1164 


SYM OP TAB 




BLA 


1098 


1099 






BLA 


1148 


1149 






BLR 


1900 


1900 


MANUAL PAT 




SYN 


READC 


1950 






BLR 


1951 


1962 


READ AREA 




REG 


T1990 


1992 


TYPE 




REG 


P1977 


1986 


PUNCH AREA 




BLR 


1998 


1999 






EOU 


XXXX1 


1961 






EOU 


XXXX2 


1962 






BLR 


1563 


1570 


TYPE2 




BLA 


1565 


1565 






BLA 


1569 


1569 






REG 


B0900 


0901 


SUB 2 




REG 


H0902 


0904 


TYPE 2 




REG 


M0905 


0907 






REG 


Q0908 


0909 






REG 


R1200 


1207 


SUB 5 




REG 


U1250 


1259 


SUB 13 




REG 


V0910 


0912 


EQU SYN 




REG 


X0913 


0914 


TYPE 




REG 


Y0915 


0916 


EOU SYN 




REG 


Z0917 


0919 






REG 


W0920 


0922 






BLR 


0923 


0968 


MULTIPLE R 




REG 


11300 
CONTROL 1 


1307 
PROGRAM 


SUB 13 


1000 


LDD 


READC 


SUB16 


ENTRY 


READC 


RCD 


1999 


1998 


READ CARD 


1998 


LDD 


1951 




TRANSFER 




STD 


P0001 




ALPHABETIC 




LDD 


1952 




INPUT 




STD 


P0002 




TO 



1000 

1950 
1998 
1354 
0980 
1355 



69 1950 1353 



70 
69 
24 
69 
24 



1999 
1951 
1977 
1952 
1978 



1998 
1354 
0980 
1355 
0981 



65 





LDD 


1953 






STD 


P0003 






LDD 


1954 






STD 


P0004 






LDD 


1955 






STD 


P0005 






LDD 


1956 






STD 


P0006 






RAL 


P0009 






ALO 


11 XXX 






STL 


P0009 






RAU 


1960 






SRT 


0002 






STU 


P0008 






AUP 


TORG 






STL 


P0010 


8003 


8003 


NOP 


0000 


9999 


PUNCH 


PCH 


P0001 


READC 


SETCC 


RAU 


READC 


SUB10 



1900 



LDD READC 



SUB14 



OUTPUT 


0981 


69 


1953 


1356 




1356 


24 


1979 


0982 




0982 


69 


1954 


1357 




1357 


24 


1980 


0983 




0983 


69 


1955 


1208 




1208 


24 


1981 


984 




0984 


69 


1956 


1209 




1209 


24 


1982 


0985 


STEP 


0985 


65 


1985 


0989 


CARD 


0989 


15 


0992 


0997 


NUMBER 


0997 


20 


1985 


0988 


STORE 


0988 


60 


1960 


1015 


CONTROL 


1015 


30 


0002 


0971 


INFO 


0971 


21 


1984 


0987 




0987 


10 


0990 


0995 


TRANSFER 


0995 


20 


1986 


8003 


TO TYPE 


8003 


00 


0000 


9999 


PUNCH READ 


1350 


71 


1977 


1950 


SUDO EXIT 


1400 


60 


1950 


1405 


MANUAL PAT 


1900 


69 


1950 


1403 



T0001 


LDD 


X 


SUBR3 


TYPE 


1990 


69 


0993 


996 


X0001 


LDD 




PROCL 


650 


0913 


69 


1016 


0969 




LDD 




PROCD 


COMMAND OR 


1016 


69 


1019 


0972 




LDD 


PUNCH 


PROCI 


CONSTANTS 


1019 


69 


1350 


1453 


X0002 


NOP 


0000 


8003 


PSEUDO OP 


0914 


00 


0000 


8003 


T0002 


RAU 


READC 


SUB10 


TYPE 1 COM 


1991 


60 


1950 


1405 


X 


00 
HED 


0000 
RELOCATE 
T 


X0001 
ROUTINE 




0993 


00 


0000 


0913 


T0003 


LDD 





SUBR3 


PROCESS OP 


1992 


69 


1195 


0996 


Q0002 


NOP 


0000 


ILLOP 


ILLEGAL OP 


0909 


00 


0000 


1013 


Q0001 


RAL 


1951 




IS L FIXED 


0908 


6 5 


1951 


1455 




SLT 


0002 




. 


1455 


35 


0002 


1211 




NZU 




REL 




1211 


44 


1165 


1166 




RAU 


1957 




FIXED L 


1165 


60 


1957 


1261 




SUP 


20001 




DRUM CORE 


1261 


11 


1014 


1169 




BMI 




FC 




1169 


46 


1172 


0973 




AUP 


8001 


RES 


FIXED DRUM 


1172 


10 


8001 


0979 


FC 


RAL 


1957 


SETL 


FIXED CORE 


0973 


65 


1957 


1311 


SR 


RAL 


XXXX1 


SETL 


SET L 


1450 


65 


1961 


1311 


SETL 


SLT 


0004 






1311 


35 


0004 


1171 




LDD 


P0008 






1171 


69 


1984 


1187 




SDA 


P0008 


PROD 




1187 


22 


1984 


1237 



66 



REL 


RAU 


1957 




DRUM CORE 


1166 


60 


1957 


1361 




SUP 


20001 






1361 


11 


1014 


1219 




BMI 




RC 




1219 


46 


1222 


1173 




AUP 


DDIFF 




RELOCATE 


1222 


10 


0975 


1179 




BMI 




BL 


DRUM ADDR 


1179 


46 


1182 


1183 




AUP 


20001 


RES 




1182 


10 


1014 


0979 


RES 


STU 


XXXX1 






0979 


21 


1961 


1214 




LDD 


SR 


SUB2R 


RESERVE L 


1214 


69 


1450 


1503 


RC 


RAL 


1957 




RELOCATE 


1173 


65 


1957 


1411 




ALO 


CDIFF 




CORE 


1411 


15 


1264 


1269 




SLO 


9060 






1269 


16 


1272 


0977 




BMI 




BL 




0977 


46 


1180 


1183 




ALO 


8001 


SETL 




1180 


15 


8001 


1311 


BL 


RAU 

REG 
REG 


PROD 

J0944 
G0941 


SUB12 

944 
0941 


BLANK L 
D TYPE 2 


1183 


60 


1237 


0991 


PROD 


LDD 


PROI 




SET D EXIT 


1237 


69 


1190 


1193 




STD 


EXITX 






1193 


24 


1196 


0999 




RAU 


1952 




WHAT IS D 


0999 


60 


1952 


1407 




LDD 


H 


SUBR4 




1407 


69 


1210 


1213 


H0001 


RAL 


1958 




RELOCATE 


0902 


65 


1958 


1263 




SLO 


20001 




D OR C 


1263 


16 


1014 


1319 




BMI 


1564 


1563 




1319 


46 


1564 


1563 


H0002 


SRT 


0008 




CD OR F 


0903 


30 


0008 


1221 




AUP 


1500 


8003 




1221 


10 


0974 


8003 


1563 


RAL 


CDIFF 


CDD 


C 


1563 


65 


1264 


1369 


1564 


RAL 


DDIFF 


CDD 


D 


1564 


65 


0975 


1369 


1566 


RAL 


1958 


J0001 


F 


1566 


65 


1958 


944 


CDD 


ALO 


1958 


J0001 




1369 


15 


1958 


0944 


H0003 


NOP 

REG 
REG 


0000 

J0960 
F0955 


G0003 

0960 
0955 


SYMBOLIC 
I 


0904 


00 


0000 


0943 


PROI 


LDD 


PUNCH 




SET I EXIT 


1190 


69 


1350 


1553 




STD 


EXITX 






1553 


24 


1196 


1099 




RAU 


1953 




WHAT IS I 


1099 


60 


1953 


1457 




LDD 


M 


SUBR4 




1457 


69 


1260 


1213 


MO 001 


RAL 


1959 




RELOCATE 


0905 


65 


1959 


1313 




SLO 


20001 




D OR C 


1313 


16 


1014 


1419 




BMI 


1568 


1567 




1419 


46 


1568 


1567 


M0002 


SRT 


0008 




C D OR F 


0906 


30 


0008 


1175 




AUP 


1504 


8003 




1175 


10 


0978 


8003 


1567 


RAL 


CDIFF 


CDI 


C 


1567 


65 


1264 


1469 


1568 


RAL 


DDIFF 


CDI 


D 


1568 


65 


0975 


1469 


1570 


RAL 


1959 


J0001 


F 


1570 


65 


1959 


0960 


CDI 


ALO 


1959 


J0001 




1469 


15 


1959 


0960 


M0003 


NOP 


0000 


F0003 


SYMBOLIC 


0907 


00 


0000 


0957 


Q 


00 


0000 


Q0001 


CONSTANTS 


1195 


00 


0000 


0908 


9060 


00 


0000 


9060 




1272 


00 


0000 


9060 


H 


00 


0000 


H0001 




1210 


00 


0000 


0902 


1500 


00 


0000 


1500 




0974 


00 


0000 


1500 



67 



M 


00 


0000 


M0001 


1504 


00 


0000 


1504 


XXXX1 


01 
HED 


0000 


xxxxi 






BOP ROUTINE 


1001 


LDD 




SUB16 




RAU 


RE ADC 


SUB10 






BLR ROUTINE 


1002 


RAL 


1959 


BLR 


BLR 


SLO 


1958 






AUP 


8001 






LDD 


SETCC 


SUB2R 






RBR ROUTINE 


1012 


RAU 


DDIFF 






ALO 


1959 


BLR 






BLA ROUTINE 


1003 


LDD 


H8XXX 






STD 


DRUMT 






RAL 


1959 






SLO 


1958 






AUP 


8001 






LDD 


SETCC 


SUB2U 






REG ROUTINE 




HED 


R 




1004 


RAL 


1952 






SRT 


0008 






SLO 


90XXX 






BMI 




1002 




ALO 


29XXX 






BMI 


1002 






SLT 


0004 






ALO 


ST 






AUP 


1958 






AUP 


H9XXX 


8002 


8002 


STU 


9999 


1002 


ST 


STU 
HED 


1021 


1002 






EQU REO 


AND SYN 




HED 


2 




1005 


LDO 


H8XXX 


BOTH 


1006 


LDD 


H9XXX 


BOTH 


BOTH 


STD 


TAG 







1260 


00 


0000 


0905 




0978 


00 


0000 


1504 


ERASEABLE 


1961 


01 


0000 


1961 



INITIALIZE 
PUNCH 


1001 
1404 


69 
60 


1404 
1950 


1353 
1405 


RESERVE 
FWA TO 
LWA 


1002 
1363 
1413 
1271 


65 
16 
10 
69 


1959 
1958 
8001 
1400 


1363 
1413 
1271 
1503 




1012 
1229 


60 
15 


0975 
1959 


1229 
1363 


SET DRUM 

TAG TO 8 

UNRESERVE 

FWA 

TO 

LWA 


1003 
1309 
1215 
1463 
1513 
1321 


69 
24 
65 
16 
10 
69 


1406 
1212 
1959 
1958 
8001 
1400 


1309 
1215 
1463 
1513 
1321 
1603 



IS 


1004 


65 


1952 


1507 


REGION 


1507 


30 


0008 


1225 


CHARACTER 


1225 


16 


1178 


1233 


ALPHABETIC 


1233 


46 


0986 


1002 




0986 


15 


1189 


1243 




1243 


46 


1002 


1197 


STORE 


1197 


35 


0004 


1557 


REGION 


1557 


15 


1310 


1265 


ORIGIN 


1265 


10 


1958 


1613 




1613 


10 


1216 


8002 




8002 


_2JL 


9999 


1002 


CONSTANTS 


1310 


21 


1021 


1002 



EQU 
SYN 



1005 69 1406 1359 

1006 69 1216 1359 
1359 24 1262 1315 



68 





RAU 


1953 




WHAT IS I 


1315 


60 


1953 


1607 




LDO 


Z 


SUBR4 




1607 


69 


1360 


1213 


Z0001 


RAL 


1959 


Y0001 


ABSOLUTE 


0917 


65 


1959 


0915 


ZOO02 


LDD 


Y 


SUBR9 


REGIONAL 


0918 


69 


1371 


1174 


YOO01 


STL 


E 


TD 




0915 


20 


1519 


1322 


YO002 


RAL 


P0010 


BP 


REG ERROR 


0916 


65 


1986 


1191 


Z0003 


LDO 


W 


SUBR6 


SYMBOLIC 


0919 


69 


1372 


1275 


WOOOl 


RAL 


EQUIV 


Y0001 


S DEFINED 


0920 


65 


1223 


0915 


W0002 


RAL 


P0010 


BP 


S UNDEFIND 


0921 


65 


1986 


1191 


W0003 


RAL 


P0010 


BP 


S TAB FULL 


0922 


65 


1986 


1191 


TD 


RAU 


1952 




HEAD D 


1322 


60 


1952 


1657 




LDD 




SUB15 


AND EQUATE 


1657 


69 


1410 


1663 




LDD 


V 


SUBR6 


TO E 


1410 


69 


1713 


1275 


V0003 


RAL 


P0010 


BP 


S TAB FULL 


0912 


65 


1986 


1191 


VOOOl 


ALO 


E 


SD 




0910 


15 


1519 


1273 


V0002 


ALO 


E 


SD 




0911 


15 


1519 


1273 


SD 


LDD 


TT 


SUBR7 




1273 


69 


0976 


1279 


TT 


LDD 


TAG" 




TEST TAG 


0976 


69 


1262 


1365 




BDO 


SETCC 






1365 


90 


1400 


0970 




RAU 


E 




RESERVE E 


0970 


60 


1519 


1323 




LDD 


SETCC 


SUB2R 




1323 


69 


1400 


1503 


1011 


LDD 


H8XXX 




REQ 


1011 


69 


1406 


1409 




STD 


TAG- 




ROUTINE 


1409 


24 


1262 


1415 




RAL 


1959 




IS I 


1415 


65 


1959 


1763 




SLO 


20001 




DRUM COR 


1763 


16 


1014 


1569 




BMI 


D 






1569 


46 


1422 


1373 




ALO 


CDIFF 


CD 




1373 


15 


1264 


1619 


D 


ALO 


DDIFF 


CD 




1422 


15 


0975 


1619 


CD 


ALO 


20001 


Y0001 




1619 


15 


1014 


0915 


Z 


00 


0000 


Z0001 


CONSTANTS 


1360 


00 


0000 


0917 


Y 


00 


0089 


Y0001 




1371 


00 


0089 


0915 


W 


00 


0000 


WOOOl 




1372 


00 


0000 


0920 


V 


00 


0000 


VOOOl 




1713 


00 


0000 


0910 


88 


00 


8800 


0000 




1500 


00 


8800 


0000 


BP 


ALO 


88 




BY PASS 


1191 


15 


1500 


1505 




STL 


P0010 


PUNCH 




1505 


20 


1986 


1350 


TAG 


01 


0000 


TAG 


ERASEABLE 


1262 


01 


0000 


1262 


E 


01 
HED 


0000 


E 




1519 


01 


0000 


1519 






ALF ROUTINE 












1007 


LDD 




PROCL 


PROCES LOC 


1007 


69 


1460 


0969 




LDD 


1952 






1460 


69 


1952 


1555 




STD 


P0007 






1555 


24 


1983 


1186 




RAL 


1953 




REPLACE 


1186 


65 


1953 


1707 




NZE 


PUNCH 




BLANK I 


1707 


45 


1350 


1461 




LDD 


S0AP2 




BY 


1461 


69 


1314 


1017 




STD 


P0003 


PUNCH 


S0AP2 


1017 


24 


1979 


1350 



69 



S0AP2 ALF S0AP2 S0AP2 
PAT ROUTINE 



CONSTANT 



1008 


RAU 




SUB10 




LDD 


READC 


SUB14 






HED ROUTINE 


1009 


RAL 


1952 






SRT 


0008 






STL 


OOOOH 


SETCC 






REL ROUTINE 




HED 


M 




1010 


RAL 


1952 






NZE 




SDD 




RAL 


1958 


SDD 


SDD 


STL 


DDIFF 






RAL 


1953 






NZE 




SCD 




RAL 


1959 


SCD 


SCD 


STL 


CDIFF 


SETCC 


DDIFF 


01 


0000 


DDIFF 


CDIFF 


01 
JHED 


0000 


CDIFF 






LOAD AVAILABILI 




HED 


L 




1999 


RAL 


1951 






SRT 


0004 






SLT 


0004 






ALO 


8002 






ALO 


8002 






ALO 


CI 






AUP 


C2 


8003 


8003 


LDD 


9995 


8002 


8002 


STD 


9994 


TUP 


tUP 


SUP 


TW 






NZU 




READC 




AUP 


TWP2 






ALO 


1DXXX 


8003 


CI 


STD 


A0001 


TUP 


C2 


LDD 


1952 


8002 


TW 


LDD 


1958 


8002 


TWP2 


LDD 
HED 


1960 


8002 



STORE 

HEADING 

CHARACTER 



TABLE 



1314 82 7661 7792 



1008 60 1511 1405 
1511 69 1950 1403 



1009 65 1952 1757 
1757 30 0008 1325 
1325 20 1329 1400 



SET 


1010 


65 


1952 


1807 


DRUM 


1807 


45 


1510 


1561 


AND 


1510 


65 


1958 


1561 


CORE 


1561 


20 


0975 


1228 


DELTAS 


1228 


65 


1953 


1857 




1857 


45 


1560 


1611 




1560 


65 


1959 


1611 




1611 


20 


1264 


1400 


ERASEABLE 


0975 


01 


0000 


0975 




1264 


01 


0000 


1264 



CALC 


1999 


65 


1951 


1605 


LOC 


1605 


30 


0004 


1465 


W2 


1465 


35 


0004 


1375 




1375 


15 


8002 


1283 




1283 


15 


8002 


1241 




1241 


15 


0994 


1149 




1149 


10 


1352 


8003 


LOAD 


8003 


69 


9995 


8002 


TABLE 


8002 


24 


9994 


1247 




1247 


11 


1550 


1655 




1655 


44 


1459 


1950 




1459 


10 


1312 


1167 




1167 


15 


1020 


8003 


CONSTANTS 


0994 


24 


0600 


1247 




1352 


69 


1952 


8002 




1550 


69 


1958 


8002 




1312 


69 


1960 


8002 



70 



OPTIMIZING TABLE 



NOOOl 

N0O02 

N0003 

NO 00 4 

N0005 

N0006 

N0007 

N0008 

N0009 

N0010 

N0011 

N0012 

N0013 

N0014 

N0015 

N0016 

N0017 

N0018 

N0019 

N0020 

N0021 

N0022 

N0023 

N0024 

N0025 

N0026 

N0027 

N0028 

N0029 

N0030 

N0031 

N0032 

N0033 

N0034 

N0035 

N0036 

N0037 

N0038 

N0039 

N0040 

N0041 

N0042 

N0043 

N0044 

N0045 

N0046 

N0047 

N0048 

N0049 

N0050 

N0051 

N0052 

N0053 



00 

00 

33 

00 

00 

00 

00 

00 

33 

33 

33 

33 

99 

99 

33 

33 

33 

33 

33 

33 

54 

45 

34 

34 

33 

44 

00 

00 

33 

33 

00 

00 

33 

33 

33 

00 

00 

33 

33 

33 

33 

33 

33 

33 

34 

43 

33 

33 

33 

33 

00 

00 

00 



0404 
0404 
2322 

0505 

0505 

0505 

0505 

0505 

1212 

0202 

0504 

0504 

9999 

9999 

1110 

0504 

0504 

0504 

0504 

2120 

0303 

0303 

0303 

0303 

0303 

0505 

0505 

0505 

1212 

0202 

0000 

0000 

2726 

2726 

0000 

0000 

0000 

2726 

2726 

0000 

0404 

0404 

0404 

0404 

0405 

0504 

0404 

0505 

0404 

0404 

0000 

0000 

0000 



0998 
0998 
0999 
0998 
0998 
0998 
0998 
0998 
0999 
0999 
0999 
0999 
9999 
9999 
0999 
0999 
0999 
0999 
0999 
0999 
0999 
999 
0999 
0999 
0999 
0998 
0998 
0998 
0999 
0999 
0988 
0888 
0999 
0999 
0999 
0988 
0988 
0999 
0999 
0999 
0998 
0998 
0998 
0998 
0998 
0998 
0998 
0998 
0998 
0998 
0898 
0898 
0898 



NOP 

HLT 

UFA 

RTC 

RTN 

RTA 

WTN 

WTA 

LIB 

LDI 

AUP 

SUP 

NOT 

NOT 

DIV 

ALO 

SLO 

A ML 

SML 

MPY 

STL 

STU 

SDA 

SIA 

STD 

NTS 

BIN 

SET 

SIB 

STI 

SRT 

SRD 

FAD 

FSB 

FDV 

SLT 

SCT 

FAM 

FSM 

FMP 

NZA 

BMA 

NZB 

BMB 

NZU 

NZE 

BMI 

BOV 

NZC 

BMC 

AXA 

SXA 

AXB 



USED 
USED 



0800 


00 


0404 


998 


0801 


00 


0404 


0998 


0802 


33 


2322 


0999 


0803 


00 


0505 


998 


0804 


00 


0505 


0998 


0805 


00 


0505 


0998 


0806 


00 


0505 


0998 


0807 


00 


0505 


0998 


0808 


33 


1212 


999 


0809 


33 


0202 


0999 


0810 


33 


0504 


0999 


0811 


33 


0504 


999 


0812 


99 


9999 


9999 


0813 


99 


9999 


9999 


0814 


33 


1110 


0999 


0815 


33 


0504 


0999 


0816 


33 


0504 


0999 


0817 


33 


0504 


0999 


0818 


33 


0504 


0999 


0819 


33 


2120 


999 


0820 


54 


0303 


0999 


0821 


45 


0303 


0999 


0822 


34 


0303 


0999 


0823 


34 


0303 


0999 


0824 


33 


0303 


999 


0825 


44 


0505 


998 


0826 


00 


0505 


0998 


0827 


00 


0505 


998 


0828 


33 


1212 


999 


0829 


33 


0202 


0999 


0830 


00 


0000 


0988 


0831 


00 


0000 


0888 


0832 


33 


2726 


0999 


0833 


33 


2726 


0999 


0834 


33 


0000 


0999 


0835 


00 


0000 


0988 


0836 


00 


0000 


0988 


0837 


33 


2726 


0999 


0838 


33 


2726 


0999 


0839 


33 


0000 


0999 


0840 


33 


0404 


998 


0841 


33 


0404 


998 


0842 


33 


0404 


0998 


0843 


33 


0404 


0998 


0844 


34 


0405 


0998 


0845 


43 


0504 


0998 


0846 


33 


0404 


0998 


0847 


33 


0505 


0998 


0848 


33 


0404 


0998 


0849 


33 


0404 


0998 


0850 


00 


0000 


0898 


0851 


00 


0000 


0898 


0852 


00 


0000 


0898 



71 



N0054 

N0055 

N0056 

N0057 

N0058 

N0059 

N0060 

N0061 

N0062 

N0063 

N0064 

N0065 

N0066 

N0067 

N0068 

N0069 

N0070 

N0071 

N0072 

N0073 

N0074 

N0075 

N0076 

N0077 

N0078 

N0079 

N0080 

N0081 

N0082 

N0083 

N0084 

N0085 

N0086 

N0087 

N0088 

N0089 

N0090 

N0091 

N0092 

N0093 

N0094 

N0095 

N0096 

N0097 

N0098 

N0099 

N0100 



COOOl 
C0O02 
C0003 
C0004 
C0005 



00 
44 

00 

00 

00 

00 

00 

33 

33 

99 

99 

33 

33 

33 

33 

33 

33 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

33 

00 

00 

00 

00 

00 

44 

33 

33 

33 

33 

33 

33 

33 

33 

44 



0000 

0505 

0505 

0505 

0505 

0000 

0000 

0504 

0504 

9999 

9999 

1110 

0504 

0504 

0504 

0504 

0303 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0505 

0000 

0000 

0000 

0000 

0506 

0606 

0606 

0606 

0000 

0000 

0505 

0505 

0505 

0505 

0505 

0505 

0505 

0505 

0505 

0505 



0898 

0998 

998 

0998 

0998 

0898 

0898 

0999 

0999 

9999 

9999 

0999 

0999 

0999 

0999 

0999 

0999 

0999 

0999 

0999 

0999 

0999 

0999 

0999 

0999 

0999 

0999 

89-8 

0898 

0898 

0898 

0999 

0998 

099B 

0998 

0898 

0898 

0998 

0998 

0998 

0998 

0998 

0998 

0998 

0998 

0998 

0998 



SYMBOLIC OP TABLE 



61 
61 
61 
61 
61 



7366 
7376 
7473 
8477 
8761 



1007 
0015 
0017 
0010 
0050 



SXB 
NEF 
RWD 

WTM 

BST 

AXC 

SXC 

RAU 

RSU 

NOT USED 

NOT USED 

DVR 

RAL 

RSL 

RAM 

RSM 

LDD 

RD1 

WR1 

RC1 

RD2 

WR2 

RC2 

RD3 

WR3 

RC3 

RPY 

RAA 

RSA 

RAB 

RSB 

TLU 

SDS 

RDS 

WDS 

RAC 

RSC 

BDO 

BD1 

BD2 

BD3 

BD4 

BD5 

BD6 

BD7 

BD8 

BD9 



ALF 
ALO 
AML 
AUP 
AXA 



0853 

0854 

0855 

0856 

0857 

0858 

0859 

0860 

0861 

0862 

0863 

0864 

0865 

0866 

0867 

0868 

0869 

0870 

0871 

0872 

0873 

0874 

0875 

0876 

0877 

0878 

0879 

0880 

0881 

0882 

0883 

0884 

0885 

0886 

0887 

0888 

0889 

0890 

0891 

0892 

0893 

0894 

0895 

0896 

0897 

0898 

0899 



1050 
1051 
1052 
1053 
1054 



00 

44 

00 

00 

00 

00 

00 

33 

33 

99 

99 

33 

33 

33 

33 

33 

33 

00 

00 

00 
00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

33 

00 

00 

00 

00 

00 

44 

33 

33 

33 

33 

33 

33 

33 

33 

44 



0000 

0505 

0505 

0505 

0505 

0000 

0000 

0504 

0504 

9999 

9999 

1110 

0504 

0504 

0504 

0504 

0303 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0505 

0000 

0000 

0000 

0000 

0506 

0606 

0606 

0606 

0000 

0000 

0505 

0505 

0505 

0505 

0505 

0505 

0505 

0505 

0505 

0505 



0898 

0998 

998 

0998 

0998 

0898 

0898 

0999 

0999 

9 999 

9999 

0999 

0999 

0999 

0999 

0999 

0999 

0999 

0999 

0999 

0999 

0999 

0999 

0999 

0999 

0999 

0999 

0898 

0898 

0898 

0898 

0999 

0998 

0998 

0998 

0898 

0898 

0998 

0998 

0998 

0998 

0998 

0998 

0998 

0998 

0998 

0998 



61 
61 
61 
61 
61 



7366 
7376 
7473 
8477 
8761 



1007 
0015 
0017 
0010 
0050 



72 



C0006 


61 


8762 


0052 


AXB 


C0007 


61 


8763 


0058 


AXC 


C0008 


62 


6476 


0090 


BDO 


C0009 


62 


6491 


0091 


BD1 


C0010 


62 


6492 


0092 


BD2 


coon 


62 


6493 


0093 


BD3 


C0012 


62 


6494 


0094 


BD4 


C0013 


62 


6495 


0095 


BD5 


C0014 


62 


6496 


0096 


BD6 


C0015 


62 


6497 


0097 


BD7 


C0016 


62 


6498 


0098 


BD8 


C0017 


62 


6499 


0099 


B09 


C0018 


62 


6975 


0026 


BIN. 


C0019 


62 


7361 


1003 


BLA 


C0020 


62 


7379 


1002 


BLR 


C0021 


62 


7461 


0041 


BMA 


C0022 


62 


7462 


0043 


BMB 


C0023 


62 


7463 


0049 


BMC 


C0024 


62 


7469 


0046 


BMI 


C0025 


62 


7677 


1001 


BOP 


C0026 


62 


7685 


0047 


BOV 


C0027 


62 


8283 


0057 


BST 


C0028 


64 


6985 


0014 


DIV 


C0029 


64 


8579 


0064 


DVR 


C0030 


65 


7884 


1005 


EQU 


C0031 


66 


6164 


0032 


FAD 


C0032 


66 


6174 


0037 


FAM 


C0033 


66 


6485 


0034 


FDV 


C0034 


66 


7477 


0039 


FMP 


C0035 


66 


8262 


0033 


FSB 


C0036 


66 


8274 


0038 


FSM 


C0037 


68 


6564 


1009 


HED 


C0038 


68 


7383 


0001 


HLT 


C0039 


73 


6464 


0069 


LDO 


C0040 


73 


6469 


0009 


LDI 


C0041 


73 


6962 


0008 


LIB 


C0042 


74 


7788 


0019 


MPY 


C0043 


75 


6566 


0054 


NEF 


C0044 


75 


7677 


0000 


NOP 


C0045- 


75 


8382 


0025 


NTS 


C0046 


75 


8961 


0040 


NZA 


C0047 


75 


8962 


0042 


NZB 


C0048 


75 


8963 


0048 


NZC 


C0051 


75 


8965 


0045 


NZE 


C0052 


75 


8984 


0044 


NZU 


C0053 


77 


6183 


1008 


PAT 


C0054 


77 


6368 


0071 


PCH 


C0055 


79 


6161 


0080 


RAA 


C0056 


79 


6162 


0082 


RAB 


C0057 


79 


6163 


0088 


RAC 


C0058 


79 


6173 


0065 


RAL 


C0059 


79 


6174 


0067 


RAM 


C0060 


79 


6184 


0060 


RAU 


C0061 


79 


6279 


1012 


RBR 


C0062 


79 


6364 


0070 


RCD 



1055 


61 


8762 


0052 


1056 


61 


8763 


0058 


1057 


62 


6476 


0090 


1058 


62 


6491 


0091 


1059 


62 


6492 


0092 


1060 


62 


6493 


0093 


1061 


62 


6494 


0094 


1062 


62 


6495 


0095 


1063 


62 


6496 


0096 


1064 


62 


6497 


0097 


1065 


62 


6498 


0098 


1066 


62 


6499 


0099 


1067 


62 


6975 


0026 


1068 


62 


7361 


1003 


1069 


62 


7379 


1002 


1070 


62 


7461 


0041 


1071 


62 


7462 


0043 


1072 


62 


7463 


0049 


1073 


62 


7469 


0046 


1074 


62 


7677 


1001 


1075 


62 


7685 


0047 


1076 


62 


8283 


0057 


1077 


64 


6985 


0014 


1078 


64 


8579 


0064 


1079 


65 


7884 


1005 


1080 


66 


6164 


0032 


1081 


66 


6174 


0037 


1082 


66 


6485 


0034 


1083 


66 


7477 


0039 


1084 


66 


8262 


0033 


1085 


66 


8274 


0038 


1086 


68 


6564 


1009 


1087 


68 


7383 


0001 


1088 


73 


6464 


0069 


1089 


73 


6469 


0009 


1090 


73 


6962 


0008 


1091 


74 


7788 


0019 


1092 


75 


6566 


0054 


1093 


75 


7677 


0000 


1094 


75 


8382 


0025 


1095 


75 


8961 


0040 


1096 


75 


8962 


0042 


1097 


75 


8963 


0048 


1100 


75 


8965 


0045 


1101 


75 


8984 


0044 


1102 


77 


6183 


1008 


1103 


77 


6368 


0071 


1104 


79 


6161 


0080 


1105 


79 


6162 


0082 


1106 


79 


6163 


0088 


1107 


79 


6173 


0065 


1108 


79 


6174 


0067 


1109 


79 


6184 


0060 


1110 


79 


6279 


1012 


1111 


79 


6364 


0070 
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C0063 

C0064 

C0065 

C0066 

C0067 

COO 68 

C0069 

C0070 

C0071 

C0072 

C0073 

C0074 

C0075 

C0076 

C0077 

C0078 

C0079 

C0080 

C0081 

C0082 

C0083 

C0084 

C0085 

C0086 

C0087 

C0088 

C0089 

C0090 

C0091 

C0092 

C0093 

C0094 

C0095 

C0096 

C0097 

C0098 

COlOl 

C0102 

C0103 

C0104 

C0105 

C0106 

C0107 

C0108 

C0109 

COllO 

coin 

C0112 
C0113 
C0114 
C0115 



79 

79 

79 

79 

79 

79 

79 

79 

79 

79 

79 

79 

79 

79 

79 

79 

79 

79 

79 

79 

79 

82 

82 

82 

82 

82 

82 

82 

82 

82 

82 

82 

82 

82 

82 

82 

82 

82 

82 

82 

82 

83 

!34 

86 

86 

86 

86 

86 

86 

86 

99 



6391 

6392 

6393 

6482 

6491 

6492 

6493 

6567 

6573 

6578 

7788 

8261 

8262 

8263 

8273 

8274 

8284 

8361 

8363 

8375 

8664 

6383 

6461 

6482 

6583 

6961 

6962 

7376 

7383 

7473 

7964 

7983 

8364 

8369 

8373 

8384 

8477 

8761 

8762 

8763 

8875 

7384 

6661 

64~82 

7991 

7992 

7993 

8361 

8374 

8375 

9999 



0072 

0075 

0078 

0086 

0070 

0073 

0076 

1004 

1010 

1011 

0079 

0081 

0083 

0089 

0066 

0068 

0061 

0005 

0003 

0004 

0055 

0036 

0022 

0085 

0027 

0023 

0028 

0016 

0035 

0018 

0031 

0030 

0024 

0029 

0020 

0021 

0011 

0051 

0053 

0059 

1006 

0084 

0002 

0087 

0071 

0074 

0077 

0007 

0056 

0006 

0001 



RC1 

RC2 

RC3 

RDS 

RD1 

RD2 

RD3 

REG 

REL 

REQ 

RPY 

RSA 

RSB 

RSC 

RSL 

RSM 

RSU 

RTA 

RTC 

RTN 

RWD 

SCT 

SDA 

SDS 

SET 

SIA 

SIB 

SLO 

SLT 

SML 

SRD 

SRT 

STD 

STI 

STL 

STU 

SUP 

SXA 

SXB 

SXC 

SYN 

TLU 

UFA 

WDS 

WR1 

WR2 

WR3 

WTA 

WTM 

WTN 

TABLE END 



1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 

1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137' 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

1164 



79 

79 

79 

79 

79 

79 

79 

79 

79 

79 

79 

79 

79 

79 

79 

79 

79 

79 

79 

79 

79 

82 

82 

82 

82 

82 

82 

82 

82 

82 

82 

82 

82 

82 

82 

82 

82 

82 

82 

82 

82 

83 

84 

86 

86 

86 

86 

86 

86 

86 

99 



6391 

6392 

6393 

6482 

6491 

6492 

6493 

6567 

6573 

6578 

7788 

8261 

8262 

8263 

8273 

8274 

8284 

8361 

8363 

8375 

8664 

6383 

6461 

6482 

6583 

6961 

6962 

7376 

7383 

7473 

7964 

7983 

8364 

8369 

8373 

8384 

8477 

8761 

8762 

8763 

8875 

7384 

6661 

6482 

7991 

7992 

7993 

8361 

8374 

8375 

9999 



0072 

0075 

0078 

0086 

0070 

0073 

0076 

1004 

1010 

1011 

0079 

0081 

0083 

0089 

0066 

0068 

0061 

0005 

0003 

0004 

0055 

0036 

0022 

0085 

0027 

0023 

0028 

0016 

0035 

0018 

0031 

0030 

0024 

0029 

0020 

0021 

0011 

0051 

0053 

0059 

1006 

0084 

0002 

0087 

0071 

0074 

0077 

0007 

0056 

0006 

0001 



74 



SUB 1 STORE K IN FWA TO LWA 





HED 


1 




SUBR1 


STD 


EXITX 






STU 


XXXX1 






LDD 


FWA 






SDA 


FWA 






SLT 


0004 






SDA 


XXXX2 






RAU 


FWA 






ALO 


XXXX1 


8003 


8003 


STL 


9999 


NEXT 


NEXT 


SUP 


XXXX2 






NZU 




EXITX 




AUP 


8001 






AUP 


1DXXX 


8003 


FWA 


STL 


9998 


NEXT 


XXXX2 


01 
HED 


0000 


XXXX2 



STORE EXIT 


1600 


24 


1196 


1199 


STORE K 


1199 


21 


1961 


1364 


SET 


1364 


69 


1217 


1170 


FWA 


1170 


22 


1217 


1220 


LWA 


1220 


35 


0004 


1181 


ADDRESSES 


1181 


22 


1962 


1515 




1515 


60 


1217 


1421 




1421 


15 


1961 


8003 


STORE K 


8003 


20 


9999 


1402 


END OF 


1402 


11 


1962 


1267 


LOOP TEST 


1267 


44 


1471 


1196 




1471 


10 


8001 


1379 


STEP 


1379 


10 


1020 


8003 


CONSTANTS 


1217 


20 


9998 


1402 


ERASEABLE 


1962 


01 


0000 


1962 



SUB 2 RESERVE UNRESERVE 





HED 


2 














SUB2R 


STD 


EXITY 




RESERVE 


1503 


24 


1813 


1316 




LDD 


Z 


RU 


ENTRY 


1316 


69 


1769 


1472 


SUB2U 


STD 


EXITY 




UNRESERVE 


1603 


24 


1813 


1366 




LDD 


11 


RU 


ENTRY 


1366 


69 


1565 


1472 


RU 


STD 


W 




SET W 


1472 


24 


1246 


1299 




STL 


N 




STORE N 


1299 


20 


1653 


1556 




SLO 


8001 




CALC AO 


1556 


16 


8001 


1913 




AUP 


8003 




AND PO 


1913 


10 


8003 


1571 




SRT 


0003 






1571 


30 


0003 


1479 




STU 


X 






1479 


21 


1284 


1287 




SUP 


8001 






1287 


11 


8001 


1245 




SLT 


0001 






1245 


35 


0001 


1451 




STU 


P 






1451 


21 


1606 


1609 




SUP 


8001 






1609 


11 


8001 


1367 




SLT 


0002 






1367 


35 


0002 


1473 




AUP 


8003 






1473 


10 


8003 


1281 




AUP 


X 






1281 


10 


1284 


1239 




ALO 


P 






1239 


15 


1606 


1711 




SLT 


0004 






1711 


35 


0004 


1621 




ALO 


CI 






1621 


15 


1506 


1761 




STL 


B0002 






1761 


20 


0901 


1554 




LDD 


C2 






1554 


69 


1188 


1291 




SDA 


SPR 






1291 


22 


1231 


1334 




AUP 


C3 


SU 




1334 


10 


1337 


1423 


SU 


STU 


SA 






1423 


21 


1401 


1604 




AUP 


C4 


8003 




1604 


10 


1558 


8003 


8003 


RAL 


9992 


B0002 




8003 


65 


9992 


0901 


B0002 


SLT 


0009 


XX 




0901 


35 


0009 


1521 


XX 


STU 


UH 






1521 


21 


1176 


1429 




SLT 


0001 






1429 


35 


0001 


1185 




RAL 


8002 






1185 


65 


8002 


1293 



75 





AUP 


W 






SRT 


0001 






AUP 


UH 


SPR 


SPR 


SRT 


0009 


SA 


SA 


STL 


9983 


B0001 


B0001 


RAL 


N 






NZE 




EXITY 




SLO 


11 






STL 


N 






RAU 


SA 






SUP 


A197 






BMI 




TP 




AUP 


A201 


SU 


TP 


RAL 


SPR 






SLO 


C2 






NZE 




ZP 




ALO 


C5 






LDD 


CI 






SDA 


B0002 






STL 


SPR 






RAU 


SA 






SUP 


C6 


SU 


ZP 


LDD 


CI 






STD 


B0002 






LDD 


C7 






STD 


SPR 






RAU 


SA 






SUP 


C8 


SU 


CI 


SLT 


0000 


XX 


C2 


SRT 


0009 


SA 


C3 


STL 


A0001 


B0001 


C4 


45 


0000 


0001 


11 


00 


0000 


0001 


A197 


STL 


A0197 


B0001 


A201 


STL 


A0201 


B0001 


C5 


SRT 


0010 


SA 


C6 


00 


0196 


0000 


C7 


SRT 


0000 


SA 


C8 


00 


0195 


0000 


Z 


00 


0000 


0000 


w 


01 


0000 


w 


N 


01 


0000 


N 


B0O02 


01 


0000 


B0002 


SPR 


01 


0000 


SPR 


SA 


01 


0000 


SA 


UH 


01 


0000 


UH 


X 


01 


0000 


X 




HED 









1293 


10 


1246 


1351 




1351 


30 


0001 


1907 




1907 


10 


1176 


1231 




1231 


30 


0009 


1401 




1401 


20 


9983 


0900 


IS N ZERO 


0900 


65 


1653 


1308 




1308 


45 


1362 


1813 


REDUCE N 


1362 


16 


1565 


1669 


BY 1 


1669 


20 


1653 


1456 


IS AI 


1456 


60 


1401 


1705 


IN LAST 


1705 


11 


1358 


1863 


BLOCK OF 


1863 


46 


1266 


1317 


4 


1266 


10 


1719 


1423 


IS P 9 


1317 


65 


1231 


1235 




1235 


16 


1188 


1343 




1343 


45 


1296 


1297 


STEP P 


1296 


15 


1249 


1703 




1703 


69 


1506 


1509 




1509 


22 


0901 


1454 




1454 


20 


1231 


1184 


REDUCE AI 


1184 


60 


1401 


1755 


BY 196 


1755 


11 


1408 


1423 


SET P 


1297 


69 


1506 


1559 


TO ZERO 


1559 


24 


0901 


1504 




1504 


69 


1458 


1661 




1661 


24 


1231 


1234 


REDUCE A I 


1234 


60 


1401 


1805 


BY 195 


1805 


11 


1508 


1423 


CONSTANTS 


1506 


35 


0000 


1521 




1188 


30 


0009 


1401 




1337 


20 


0600 


0900 




1558 


45 


0000 


0001 




1565 


00 


0000 


0001 




1358 


20 


0796 


0900 




1719 


20 


0800 


0900 




1249 


30 


0010 


1401 




1408 


00 


0196 


0000 




1458 


30 


0000 


1401 




1508 


00 


0195 


0000 




1769 


00 


0000 


0000 


ERASEABLE 


1246 


01 


0000 


1246 




1653 


01 


0000 


1653 




0901 


01 


0000 


0901 




1231 


01 


0000 


1231 




1401 


01 


0000 


1401 




1176 


01 


0000 


1176 




1284 


01 


0000 


1284 



SUB 3 PROCESS OP CODE 
HED 3 



76 



SUBR3 


STD 


EXITX 




STORE EXIT 


0996 


24 


1196 


1349 




RAL 


1954 






1349 


65 


1954 


1659 




SRT 


0004 




IS OP 


1659 


30 


0004 


1819 




NZE 




ILLOP 


BLANK 


1819 


45 


1522 


1013 




SLT 


0006 




IS OP 


1522 


35 


0006 


1387 




N2U 




NUM 


NUMERIC 


1387 


44 


1341 


1192 




SRT 


0002 






1341 


30 


0002 


1347 




STL 


XXXX1 




SEARCH 


1347 


20 


1961 


1414 




SLO 


8001 




SYMBOLIC 


1414 


16 


8001 


1671 




TLU 


C0001 




OP TABLE 


1671 


84 


1050 


1855 




ALO 


1 


8002 




1855 


15 


1608 


8002 


8002 


RAL 


9997 


NEXT 


IS 


8002 


65 


9997 


1501 


NEXT 


SLO 


XXXX1 




SYM OP 


1501 


16 


1961 


1615 




SLT 


0006 




LEGAL 


1615 


35 


0006 


1529 




N2U 


ILLOP 






1529 


44 


1013 


1384 




SLT 


0001 




TEST FOR 


1384 


35 


0001 


1391 




NZU 


PSEU 




PSEUDO OP 


1391 


44 


1295 


1346 




SLT 


0001 


SNO 


STORE NUM 


1346 


35 


0001 


1753 


SNO 


STL 


P0007 




650 OP 


1753 


20 


1983 


1236 




SRT 


0004 




GET OPTIM 


1236 


30 


0004 


1397 




ALO 


3 


8002 


CONSTANTS 


1397 


15 


1650 


8002 


8002 


LDD 


9996 


NEX 




8002 


69 


9996 


1399 


NEX 


STD 


OPTIM 


EXITX 




1399 


24 


1452 


1196 


NUM 


SLO 


4 




FORM 


1192 


16 


1345 


1449 




SLT 


0002 




NUMERIC 


1449 


35 


0002 


1905 




SLO 


8002 




OP 


1905 


16 


8002 


1963 




SRT 


0001 




CODE 


1963 


30 


0001 


1869 




ALO 


8001 


SNO 




1869 


15 


8001 


1753 


ILLOP 


RAL 


P0010 




ILLEGAL OP 


1013 


65 


1986 


1441 




ALO 


5 




SET 8 


1441 


15 


1194 


1499 




STL 


P0010 




FOR BLANK 


1499 


20 


1986 


1289 




LDD 


6 


NEX 


OP 


1289 


69 


1242 


1399 


PSEU 


SLT 


0003 




PSEUDO 


1295 


35 


0003 


1803 




ALO 


EXITX 




OP 


1803 


15 


1196 


1551 




ALO 


11 XXX 


8002 




1551 


15 


0992 


8002 


1 


RAL 


0000 


NEXT 


CONSTANTS 


1608 


65 


0000 


1501 


2 


10 


0000 


0000 




1700 


10 


0000 


0000 


3 


LDD 


N0001 


NEX 




1650 


69 


0800 


1399 


4 


90 


9000 


0000 




1345 


90 


9000 


0000 


5 


00 


0000 


0008 




1194 


00 


0000 


0008 


6 


55 
HED 


0505 


0999 




1242 


55 


0505 


0999 






SUB 4 WHAT IS ADDRESS 












HED 


4 














SUBR4 


STD 


EXITZ 




STORE EXIT 


1213 


24 


1416 


1919 




STU 


XXXX1 




STORE ADDR 


1919 


21 


1961 


1464 




SRT 


0008 




IS C5 


1464 


30 


0008 


1333 




NZU 




EXITZ 


BLANK 


1333 


44 


1437 


1416 




STU 


XXXX2 




SAVE C5 


1437 


21 


1962 


1665 



77 





RAU 


8002 






AUP 


90XXX 






BOV 


LOOP 


LOOP 


LOOP 


AUP 


HI 






BOV 




SYM 




SLT 


0002 






NZU 


LOOP 






RAL 


XXXX2 






SLO 


90XXX 






BMI 




SYM 




ALO 


29XXX 






BMI 


SYM 






RAL 


11 XXX 






AUP 


XXXX1 


AEX 


AEX 


ALO 


EXITZ 






SLO 


8002 


8001 


SYM 


RAU 


XXXX1 






LDD 




SUB15 




ALO 


2IXXX 






STU 


HSYMB 


AEX 


HI 


10 


0000 


0000 


HSYMB 


01 
HED 


0000 


HSYMB 



ARE LOW 4 


1665 


60 


8002 


1523 


CHARACTERS 


1523 


10 


1178 


1383 


NUMERIC 


1383 


47 


1286 


1286 




1286 


10 


1339 


1393 




1393 


47 


1396 


0998 




1396 


35 


0002 


1853 




1853 


44 


1286 


1658 


LOW 4 NUM 


1658 


65 


1962 


1417 


IS C5 


1417 


16 


1178 


1433 


ALPHABETIC 


1433 


46 


1336 


0998 




1336 


15 


1189 


1443 




1443 


46 


0998 


1447 


REGIONAL 


1447 


65 


0992 


1497 




1497 


10 


1961 


1715 




1715 


15 


1416 


1721 




1721 


16 


8002 


8001 


HED SYMBOL 


0998 


60 


1961 


1765 




1765 


69 


1018 


1663 


STEP EXIT 


1018 


15 


1771 


1425 




1425 


21 


1230 


1715 




1339 


10 


0000 


0000 


ERASEABLE 


1230 


01 


0000 


1230 



SUB 5 TEST ABSOLUTE ADDRESS 





HED 


5 
















SUBR5 


STD 


EXITZ 




STORE 


EXIT 


1750 


24 


1416 


1969 




STL 


XXXX1 




STORE 


A 


1969 


20 


1961 


1514 




SLT 


0004 








1514 


35 


0004 


1475 




SLO 


8002 








1475 


16 


8002 


1483 




TLU 


ROOOl 




TLU 




1483 


84 


1200 


1656 




ALO 


GET 


8002 


RANGE 




1656 


15 


1709 


8002 


8002 


RAU 


9972 


X 


TABLE 




8002 


60 


9972 


1177 


X 


SLT 


0006 








1177 


35 


0006 


1491 




SRT 


0006 








1491 


30 


0006 


1706 




AUP 


EXITZ 








1706 


10 


1416 


1821 




ALO 


xxxxi 








1821 


15 


1961 


1815 




SUP 


8003 


8001 






1815 


11 


8003 


8001 


GET 


RAU 


0000 


X 






1709 


60 


0000 


1177 


ROOOl 


00 


1999 


0000 


RANGE 




1200 


00 


1999 


0000 


R0002 


00 


7999 


0003 


TABLE 




1201 


00 


7999 


0003 


R0003 


00 


8003 


0001 






1202 


00 


8003 


0001 


R0004 


00 


8004 


0003 






1203 


00 


8004 


0003 


R0005 


00 


8007 


0001 






1204- 


00 


8007 


0001 


R0006 


00 


8999 


0003 






1205 


00 


8999 


0003 


R0007 


00 


9059 


0002 






1206 


00 


9059 


0002 


R0008 


99 
HED 


9999 


0003 






1207 


99 


9999 


0003 






SUB 6 SYMBOL TEST 


ROUTINE 














HED 


6 
















SUBR6 


STD 


EXITZ 




STORE 


EXIT 


1275 


24 


1416 


1320 




STU 


S 




STORE 


SYMB 


1320 


21 


1601 


1654 



78 





LDO 


SWOF 




SET SWITCH 


1654 


69 


1758 


1861 




STD 


SW 




OFF 


1861 


24 


1610 


1764 




MPY 


SC 




SCRAMBLE 


1764 


19 


1517 


1238 




RAL 


8002 




SYMBOL 


1238 


65 


8002 


1547 




SLT 


0003 




GIVING 


1547 


35 


000 3 


1806 




MPY 


CF 




LO 


1806 


19 


1759 


1330 




SRT 


0001 






1330 


30 


0001 


1587 




SLT 


0004 




SET 


1587 


35 


0004 


1597 




ALO 


L1P1 




TEST 


1597 


-15 


1850 


1856 




STL 


L0P1 




WORD 


1856 


20 


1865 


1168 




SLO 


ID XXX 






1168 


16 


1020 


1525 




STL 


LO 


SLI 


SAVE LO 


1525 


20 


1903 


1487 


SLI 


STL 


LI 


8001 


INIT LI 


1487 


20 


1614 


8001 


8001 


RAL 


9990 


A 


IS CONT OF 


8001 


65 


9990 


1395 


A 


NZE 




UND 


LI ZERO 


1395 


45 


1098 


1549 




SLO 


S 




IS CONT OF 


1098 


16 


1601 


1756 




NZE 


SW 


DEF 


LI SYMB 


1756 


45 


1610 


1811 


SW 


RAL 


LI 


OFF 


IS LI 


1610 


65 


1614 


1270 


OFF 


SLO 


LMAX 




MAXIMUM 


1270 


16 


1573 


1227 




NZE 




- MAX 




1227 


45 


1280 


1331 




ALO 


LMP1 


SLI 


STEP LI 


1280 


15 


1533 


1487 


ON 


SLO 


LO 




IS LI EQUA 


1800 


16 


1903 


1708 




NZE 




SWSYM 


TO LO 


1708 


45 


1412 


1664 




ALO 


L0P1 


SLI 


STEP LI 


1412 


15 


1865 


1487 


MAX 


LDD 


SWON 




SET 


1331 


69 


1434 


1537 




STD 


SW 




SWITCH ON 


1537 


24 


1610 


1714 




RAL 


LI 


SLI 


ZERO LI 


1714 


65 


1467 


1487 


UND 


RAL 


EXITZ 




UNDEFINED 


1549 


65 


1416 


1871 




ALO 


11 XXX 




STEP 


1871 


15 


0992 


1647 




STL 


EXITZ 




EXIT 


1647 


20 


1416 


1370 




RAL 


LI 






1370 


65 


1614 


1420 




SLO 


LI 






1420 


16 


1467 


.1921 




STL 


LSYMB 


ASU 




1921 


20 


1575 


1278 


DEF 


RAL 


LI 




DEFINED 


1811 


65 


1614 


1470 




LDD 


ASU 


SUBR8 


GET 


1470 


69 


1278 


1381 


ASU 


AUP 


S 


EXITZ 


EQUIVALENT 


1278 


10 


1601 


1416 


SWSYM 


HLT 


0111 


SYMOF 


S TAB FULL 


1664 


01 


0111 


1218 


SYMOF 


LDD 


SYMON 




SET SW SYM 


1218 


69 


1971 


1224 




STD 


SWSYM 


SYMON 


ON 


1224 


24 


1664 


1971 


SYMON 


RAL 


EXITZ 






1971 


65 


1416 


1572 




ALO 


2 1 XXX 


8002 




1572 


15 


1771 


8002 


SWOF 


RAL 


LI 


OFF 


CONSTANTS 


1758 


65 


1614 


1270 


SWON 


RAL 


LI 


ON 




1434 


65 


1614 


1800 


SC 


10 


0100 


1001 




1517 


10 


0100 


1001 


CF 


00 


0000 


0004 




1759 


00 


0000 


0004 


LI 


RAL 


0000 


A 




1467 


65 


0000 


1395 


L1P1 


RAL 


0001 


A 




1850 


65 


0001 


1395 


LMAX 


RAL 


EOOOO 


A 




1573 


65 


0399 


1395 


LMP1 


RAL 


E0001 


A 




1533 


65 


0400 


1395 


S 


01 


0000 


S 


ERASEABLE 


1601 


01 


0000 


1601 


SW 


01 


0000 


SW 




1610 


01 


0000 


1610 



79 



LO 


01 


0000 


LO 


LI 


01 


0000 


LI 


LSYMB 


01 
HED 


0000 


LSYMB 



1903 


01 


0000 


1903 


1614 


01 


0000 


1614 


1575 


01 


0000 


1575 



SUB 7 STORE SYMBOL AND EQUIV 





HED 


7 














SUBR7 


STD 


EXITZ 




STORE EXIT 


1279 


24 


1416 


1520 




LDD 


SS 






1520 


69 


1623 


1226 




SDA 


XXXX2 


8001 


STORE 


1226 


22 


1962 


8001 


8001 


STU 


9988 


A 


SYMBOL 


8001 


21 


9988 


1541 


A 


SUP 


8001 






1541 


11 


8001 


1599 




STL 


XXXX1 




SAVE E 


1599 


20 


1961 


1814 




SRT 


0004 






1814 


30 


0004 


1625 




DIV 


2IXXX 




CALCULATE 


1625 


14 


1771 


1232 




SLT 


0004 




LOCATION 


1232 


35 


0004 


1493 




ALO 


CI 




OF 


1493 


15 


1446 


1651 




LDD 


C2 




E 


1651 


69 


1704 


1808 




SDA 


SEL 




AND 


1808 


22 


1911 


1864 




LDD 


C3 




STORE 


1864 


69 


1617 


1620 




SDA 


SER 






1620 


22 


1673 


1276 




STL 


OBEE 






1276 


20 


1431 


1484 




SLO 


8001 






1484 


16 


8001 


1591 




ALO 


XXXX1 


OBEE 




1591 


15 


1961 


1431 


OBEE 


LDD 


9986 


B 




1431 


69 


9986 


1389 


B 


N2U 


SER 






1389 


44 


1673 


1244 




' SLT 


0004 


SEL 




1244 


35 


0004 


1911 


SS 


STU 


9987 


A 


CONSTANTS 


1623 


21 


9987 


1541 


CI 


LDD 


E0001 


B 




1446 


69 


0400 


1389 


C2 


SDA 


9985 


EXITZ 




1704 


22 


9985 


1416 


C3 


SIA 


9984 


EXITZ 




1617 


23 


9984 


1416 


OBEE 


01 


0000 


OBEE 


ERASEABLE 


1431 


01 


0000 


1431 


SEL 


01 


0000 


SEL 




1911 


01 


0000 


1911 


SER 


01 
HED 


0000 


SER 




1673 


01 


0000 


1673 



SUB 8 GIVEN SYM LOC GET EQUIV 





HED 


8 
















SUBR8 


STD 


EXIT 




STORE 


EXIT 


1381 


24 


1534 


1637 




LDD 


8003 








1637 


69 


8003 


1294 




SDA 


LSYMB 




STORE 


L 


1294 


22 


1575 


1328 




RAL 


8001 








1328 


65 


8001 


1285 




DIV 


2DXXX 








1285 


14 


1288 


1148 




SLT 


0004 








1148 


35 


0004 


1809 




ALO 


El 


8002 






1809 


15 


1462 


8002 


8002 


LDD 


9975 


TR 






8002 


69 


9975 


1378 


TR 


NZU 




LH 






1378 


44 


1481 


1282 




RAM 


8001 


LR 


GET E 


RH 


1481 


67 


8001 


1439 


LH 


RAM 


8001 




GET E 


LH 


1282 


67 


8001 


1489 




SRT 


0004 


LR 






1489 


30 


0004 


1439 


LR 


LDD 


8003 








1439 


69 


8003 


1496 




SIA 


EQUIV 








1496 


23 


1223 


1326 




RAL 


LSYMB 


EXIT 






1326 


65 


1575 


1534 



80 



El 


LDD 


E0001 


TR 


CONSTANT 


1462 


69 


0400 


1378 


EXIT 


01 


0000 


EXIT 


ERASEABLE 


1534 


01 


0000 


1534 


EOUIV 


01 
HED 

HED 


0000 

SUB 9 
9 


EQUIV 
CALCULATE 


: REG ADDRESS 


1223 


01 


0000 


1223 


SUBR9 


STD 


EXITZ 




_SJORE EXIT 


1174 


24 


1416 


1670 




SRT 


0008 






1670 


30 


0008 


1539 




RAL 


8003 






1539 


65 


8003 


1697 




SLT 


0004 






1697 


35 


0004 


1858 




ALO 


C 


8002 


IS 


1858 


15 


1512 


8002 


8002 


RAL 


9991 


NEX 


REGION 


8002 


65 


9991 


1445 


NEX 


BDO 


ILL 




DEFINED 


1445 


90 


1649 


1701 




SLT 


0001 






1701 


35 


0001 


1908 




RAL 


8002 






1908 


65 


8002 


1667 




SRT 


0001 






1667 


30 


0001 


1723 




LDD 


EXITZ 






1723 


69 


1416 


1720 




BD6 




L 




1720 


96 


1773 


1675 




BD5 


D 


I 




1773 


95 


1376 


1428 


L 


ALO 


1957 


ALL 




1675 


15 


1957 


1562 


D 


ALO 


1958 


ALL 




1376 


15 


1958 


1562 


I 


ALO 


1959 


ALL 




1428 


15 


1959 


1562 


ALL 


SLO 


1IXXX 






1562 


16 


0992 


1747 




BMI 


ILL 


EXITZ 




1747 


46 


1649 


1416 


ILL 


RAL 


EXITZ 




UNDEFINED 


1649 


65 


1416 


1622 




ALO 


1IXXX 


8002 


OR ILLEG 


1622 


15 


0992 


8002 


C 


RAL 
HED 


0960 
SUB 10 


NEX 
SET CC 8 


CONSTANT 
AND PUNCH 


1512 


65 


0960 


1445 


SUB10 


ALO 


P0010 






1405 


15 


1986 


1641 




ALO 


84TH 






1641 


15 


1344 


1699 




STL 


P0010 






1699 


20 


1986 


1589 




PCH 


POOOl 


8003 




1589 


71 


1977 


8003 


84TH 


00 
HED 


0800 
SUB 11 



0000 
FIND AND 


CONSTANT 
RESERVE BEST 


1344 


00 


0800 


0000 


SUB11 


LDD 


DRUMT 




TEST 


1801 


69 


1212 


1965 




BDO 




SEX 


DRUM TAG 


1965 


90 


1770 


1820 




STL 


EXIT 




IS ADR L 


1770 


20 


1725 


1478 




BD6 


DI 






1478 


96 


1531 


1633 




RAL 


8003 


SSW 


L 


1633 


65 


8003 


1741 


DI 


LDD 


F 




D OR I 


1531 


69 


1634 


1787 




SDA 


XXXX1 


SUB13 


FIND OPTIM 


1787 


22 


1961 


1964 


GDA 


SLT 


0004 




DYNAM ADR 


1851 


35 


0004 


1762 




ALO 


8002 






1762 


15 


8002 


1672 




ALO 


8002 


SSW 




1672 


15 


8002 


1741 


SSW 


LDD 


OFF 




SET SW OFF 


1741 


69 


1444 


1797 




STD 


SW 






1797 


24 


1584 


1837 



81 





ALO 


A1P1 




GET TABLE 


1837 


15 


1290 


1495 




STL 


BP1 




START ADDR 


1495 


20 


1915 


1268 




SLO 


ID XXX 






1268 


16 


1020 


1775 




STL 


AO 


SAI 


SAVE AO 


1775 


20 


1804 


1612 


SAI 


STL 


AI 


8001 




1612 


20 


1687 


8001 


8001 


RAU 


9975 


TA 


IS A LOCAT 


8001 


60 


9975 


1579 


TA 


NZU 


YES 


SW 


AVAILABLE 


1579 


44 


1583 


1584 


SW 


RAU 


AI 


SWOF 




1584 


60 


1687 


1691 


SWOF 


SLO 


AMAX 




IS AI MAX 


1691 


16 


1394 


1749 




N2E 




MAX 




1749 


45 


1502 


1754 




ALO 


AMP1 


SAI 


STEP AI 


1502 


15 


1906 


1612 


SWON 


SLO 


AO 




IS AI EOUA 


1751 


16 


1804 


1859 




NZE 




FULL 


TO AO 


1859 


45 


1662 


1914 




ALO 


BP1 


SAI 


STEP AI 


1662 


15 


1915 


1612 


MAX 


LDD 


ON 




SET SW ON 


1754 


69 


1909 


1712 




STD 


SW 






1712 


24 


1584 


1737 




RAL 


AI 


SAI 


SET AI TO 


1737 


65 


1240 


1612 


FULL 


HLT 


0222 




DRUM PAKED 


1914 


01 


0222 


1318 




LDD 


H9XXX 




SET DRUM 


1318 


69 


1216 


1870 




STD 


DRUMT 




TAG TO 9 


1870 


24 


1212 


1466 




RAL 


EXIT 


SEX 


STEP EXIT 


1466 


65 


1725 


1820 


SEX 


ALO 


1 1 XXX 


8002 




1820 


15 


0992 


8002 


YES 


SCT 


0000 




RESERVE 


1583 


36 


0000 


1660 




SLT 


0001 




LOCATION 


1660 


35 


0001 


1717 




SRT 


0001 




FOUND 


1717 


30 


0001 


1823 




STL 


XXXX2 




SAVE P- 


1823 


20 


1962 


1516 




SUP 


8003 






1516 


11 


8003 


1873 




SLT 


0004 






1873 


35 


0004 


1683 




AUP 


8001 






1683 


10 


8001 


1791 




ALO 


SRP 


8002 




1791 


15 


1494 


8002 


8002 


SRT 


0009 


SCA 


NULIFY SCT 


8002 


30 


0009 


1722 


SCA 


RAU 


8003 






1722 


60 


8003 


1629 




ALO 


AI 






1629 


15 


1687 


1841 




LDD 


ST 






1841 


69 


1544 


1847 




SDA 


ERAS 


8001 




1847 


22 


1901 


8001 


8001 


STU 


9972 


CA 




8001 


21 


9972 


1825 


CA 


SUP 


8001 




CALCULATE 


1825 


11 


8001 


1733 




SLO 


AI 




LOCATION 


1733 


16 


1240 


1545 




SRT 


0004 




FOUND 


1545 


30 


0004 


1710 




DIV 


41 






1710 


14 


1616 


1426 




MPY 


500 






1426 


19 


1679 


1552 




ALO 


8003 






1552 


15 


8003 


1760 




SUP 


8001 






1760 


11 


8001 


1767 




AUP 


XXXX2 






1767 


10 


1962 


1817 




MPY 


50 






1817 


19 


1920 


1340 




ALO 


8003 






1340 


15 


800 3 


1897 




SUP 


8001 


EXIT 




1897 


11 


8001 


1725 


F 


00 


0000 


6DA 


CONSTANTS 


1634 


00 


0000 


1851 


OFF 


RAL 


AI 


SWOF 




1444 


65 


1687 


1691 


A1P1 


RAU 


A0002 


TA 




1290 


60 


0601 


1579 


AMAX 


RAU 


A0200 


TA 




1394 


60 


0799 


1579 


AMP1 


RAU 


A0201 


TA 




1906 


60 


0800 


1579 


ON 


RAL 


AI 


SWON 




1909 


65 


1687 


1751 



82 



Al 


RAU 


A 0001 


TA 


SRP 


SRT 


0000 


SCA 


ST 


STU 


9999 


CA 


41 


00 


0000 


0004 


500 


00 


0000 


0500 


50 


00 


0000 


0050 


FON 


RAL 


8001 


STEPX 


AO 


01 


0000 


AO 


AI 


01 


0000 


AI 


BP1 


01 


0000 


BP1 


EXIT 


01 
HED 


0000 


EXIT 






SUB 12 


SET BLAI 


5UB12 


ALO 


P0010 






ALO 


87TH 






STL 


P0010 


8003 



87TH 



SUB13 



SEO 



R8 



SHOP 





1240 


60 


0600 


1579 




1494 


30 


0000 


1722 




1544 


21 


9999 


1825 




1616 


00 


0000 


0004 




1679 


00 


0000 


0500 




1920 


00 


0000 


0050 




1602 


65 


8001 


1810 


ERASEABLE 


1804 


01 


0000 


1804 




1687 


01 


0000 


1687 




1915 


01 


0000 


1915 




1725 


01 


0000 


1725 



0991 


15 


1986 


1891 


1891 


15 


1594 


1799 


1799 


20 


1986 


8003 



00 0000 8000 CONSTANT 
SUB 13 CAL OPTIMUM DYNAMIC ADR 



1594 



00 0000 8000 



HED 


Y 














STD 


EXITZ 




STORE EXIT 


1964 


24 


1416 


1970 


BD5 




I 


D OR I 


1970 


95 


1923 


1&75 


RAL 


OPTIM 




D 


1923 


65 


1452 


1860 


SLT 


0001 






1860 


35 


0001 


1867 


SLO 


8002 






1867 


16 


8002 


1925 


SLT 


0001 






1925 


35 


0001 


1581 


ALO 


8001 






1581 


15 


8001 


1639 


SRT 


0003 


SEO 




1639 


30 


0003 


1947 


RAL 


OPTIM 




I 


1875 


65 


1452 


1910 


BD2 


SHOP 




SHIFT TEST 


1910 


92 


1666 


1716 


BD3 


XAS 




XAS TEST 


1716 


93 


1772 


1822 


SLT 


0002 


SEO 




1822 


35 


0002 


1947 


STL 


XXXX1 




SAVE EV OD 


1947 


20 


1961 


1766 


RAL 


OPREG 




IS BASE 


1766 


65 


1872 


1277 


DIV 


2 1 XXX 




EVEN OR OD 


1277 


14 


1771 


1332 


RAU 


8003 






1332 


60 


8003 


1689 


ALO 


XXXX1 






1689 


15 


1961 


1816 


N2U 




R8 




1816 


44 


1922 


1972 


SLT 


0002 






1922 


35 


0002 


1729 


RAL 


8002 


R8 




1729 


65 


8002 


1972 


SRT 


0008 




GET BASE 


1972 


30 


0008 


1941 


ALO 


OPREG 




PLUS DELTA 


1941 


15 


1872 


1327 


DIV 


50 




MOD 50 


1327 


14 


1380 


1390 


RAL 


8003 


EXITZ 




1390 


65 


8003 


1416 


RAL 


P0007 




TLU UNITS 


1666 


65 


1983 


1887 


SRT 


0004 




DIGIT OF 


1887 


30 


0004 


1997 


SLT 


0009 




D ADDRESS 


1997 


35 


0009 


1917 


SLO 


8002 






1917 


16 


8002 


1975 


TLU 


U0001 






1975 


84 


1250 


1812 


ALO 


GU 


8002 




1812 


15 


1866 


8002 



83 



8002 


RAL 


9969 


TOP 




8002 


65 


9969 


1973 


TOP 


SLT 


0002 






1973 


35 


0002 


1779 




LDD 


OPTIM 




IS OP SRD 


1779 


69 


1452 


1862 




BD3 




SEO 




1862 


93 


1916 


1947 




SLT 


0004 


SEO 


SRD 


1916 


35 


0004 


1947 


XAS 


RAL 


P0007 




TLU 


1772 


65 


1983 


1937 




SRT 


0004 




D ADDRESS 


1937 


30 


0004 


1198 




SLT 


0006 






1198 


35 


0006 


1966 




SLO 


8002 






1966 


16 


8002 


1476 




TLU 


1 0001 






1476 


84 


1300 


1912 




ALO 


GXD 


8002 




1912 


15 


1967 


8002 


8002 


RAL 


9968 


NXT 




8002 


65 


9968 


1274 


NXT 


SLT 


0004 


SEO 




1274 


35 


0004 


1947 


U0001 


00 


2322 


2524 


SHIFT 


1250 


00 


2322 


2524 


U0002 


10 


0706 


0706 


OPTIMIZING 


1251 


10 


0706 


0706 


U0003 


20 


0706 


0908 


TABLE 


1252 


20 


0706 


0908 


U0004 


30 


0908 


1110 




1253 


30 


0908 


1110 


U0005 


40 


1110 


1312 




1254 


40 


1110 


1312 


U0006 


50 


1312 


1514 




1255 


50 


1312 


1514 


U0007 


60 


1514 


1716 




1256 


60 


1514 


1716 


U0008 


70 


1716 


1918 




1257 


70 


1716 


1918 


U0009 


80 


1918 


2120 




1258 


80 


1918 


2120 


U0010 


90 


2120 


2322 




1259 


90 


2120 


2322 


10001 


19 


9906 


0600 


X ACCUM 


1300 


19 


9906 


0600 


10002 


79 


9907 


0700 


ADD SUB 


1301 


'79 


9907 


0700 


10003 


80 


0008 


0800 


TABLE 


1302 


80 


0008 


0800 


10004 


80 


0106 


0600 




1303 


80 


0106 


0600 


10005 


80 


0209 


0800 




1304 


80 


0209 


0800 


10006 


80 


0308 


0900 




1305 


80 


0308 


0900 


10007 


90 


5908 


0800 




1306 


90 


5908 


0800 


10008 


99 


9909 


0900 




1307 


99 


9909 


0900 


GU 


RAL 


0000 


TOP 


CONSTANTS 


1866 


65 


0000 


1973 


GXO 


RAL 


0000 


NXT 




1967 


65 


0000 


1274 


50 


00 
HED 

HED 


0000 

SUB 14 1 
P 


0050 
PUNCH AVAIL 


TABLE 


1380 


00 


0000 


0050 


SUB14 


STD 


EXITX 




STORE EXIT 


1403 


24 


1196 


1849 




LDD 


85TH - 


— 


SET PUNCH 


1849 


69 


1652 


1368 




STD 


P0010 




8 


1368 


24 


1986 


1739 




LDD 


Al 




INIT AI 


1739 


69 


1292 


1595 




STD 


XXXX1 






1595 


24 


1961 


1418 




RAL 


RSI 


LOOP 


IN IT RS 


1418 


65 


1324 


1829 


LOOP 


AUP 


CI 


8001 




1829 


10 


1382 


8001 


8001 


STL 


9999 


NEXT 


SET LOCAT 


8001 


20 


9999 


1702 


NEXT 


SUP 


TW1 






1702 


11 


1468 


1374 




N2U 




SRS 




1374 


44 


1377 


1528 




AUP 


C2 






1377 


10 


1430 


1335 




ALO 


C3 


8003 




1335 


15 


1338 


8003 



84 



SRS 



8002 
8003 
TP 



PUN 



CI 
C2 
C3 
C4 

C5 
C6 
C7 

TW1 

TW2 

85TH 

Al 

RSI 

AIM 

AMP1 



STL 
RAU 
ALO 
LDD 
STD 
SUP 
N2U 
AUP 
ALO 
PCH 
SLO 
NZE 
ALO 
STL 
RAL 
SLO 

STL 
STL 

00 
STD 
STD 

00 

00 
STL 
STD 

00 
LDD 

00 
LDD 
LDD 
HED 



XXXX2 

C4 

XXXX1 

9998 
9997 
TW2 

C5 
C6 

P0001 
AIM 

AMP1 

XXXX1 

XXXX2 

C7 

P0001 
P0009 

0500 
P0002 
P0010 

0001 

1499 
P0007 
P0008 

0080 
A0001 

0000 
A0200 
A0201 



8002 
8003 
TP 

PUN 

8002 

EXITX 

LOOP 

NEXT 

NEXT 
0500 

TP 

TP 
0000 
1499 

NEXT 

TP 
0000 
8003 
0450 
8003 
8003 



SAVE RS 


1528 


20 


1962 


1518 




1518 


60 


1424 


1879 




1879 


15 


1961 


8002 


STORE 


8002 


69 


9998 


8003 


AV TABLE 


8003 


24 


9997 


1752 




1752 


11 


1618 


1474 




1474 


44 


1427 


1578 




1427 


10 


1480 


1385 




1385 


15 


1388 


8002 




1578 


71 


1977 


1477 


IS AI MAX 


1477 


16 


1530 


1435 




1435 


45 


1438 


1196 


STEP AI 


1438 


15 


1342 


1248 




1248 


20 


1961 


1668 




1668 


65 


1962 


1718 




1718 


16 


1524 


1829 


CONSTANTS 


1382 


20 


1977 


1702 




1430 


20 


1985 


1702 




1338 


00 


0500 


0500 




1424 


24 


1978 


1752 




1480 


24 


1986 


1752 




1388 


00 


0001 


0000 




1524 


00 


1499 


1499 




1468 


20 


1983 


1702 




1618 


-24 


1984 


1752 




1652 


00 


0080 


0000 




1292 


69 


0600 


8003 




1324 


00 


0000 


0450 




1530 


69 


0799 


8003 




1342 


69 


0800 


8003 



SUB 15 HEADING ROUTINE 



SUB15 



DH 



SUB16 



HED 
STD 
LDD 
SLT 
N2U 
RAU 
AUP 
RAU 
HED 



STD 
RAL 
STU 
STD 
LDD 
RAL 
AUP 
LDD 



H 
EXITY 

8003 

0008 
DH 

8001 
OOOOH 

8001 



EXITY 
EXITY 



SAVE 


EXIT 


1663 


24 


1813 


1768 


IS CI 




1768 


69 


8003 


1574 


BLANK 




1574 


35 


0008 


1543 






1543 


44 


1298 


1348 


HEAD 




1348 


60 


8001 


1818 






1818 


10 


1329 


1813 


DONT 


HEAD 


1298 


60 


8001 


1813 



SUB 16 INITIALIZATION 



EXITY 
II 

P0009 
OOOOH 



12 
13 



SUBR1 



SUBR1 



STORE EXIT 


1353 


24 


1813 


1868 




1868 


65 


1624 


1929 


ZERO CARD 


1929 


21 


1985 


1488 


ZERO HEAD 


1488 


24 


1329 


1432 


ZERO SYM T 


1432 


69 


1485 


1600 


MAKE DRUM 


1485 


65 


1538 


1593 


AVAILABLE 


1593 


10 


1546 


1802 




1802 


69 


1918 


1600 



85 





LDD 


H8XXX 






STD 


DRUMT 






LDD 


14 






STD 


SWSYM 






RAL 


15 






AUP 


H8XXX 






LDD 


EXITY 


SUBR1 


u 


00 


S0001 


E0200 


12 


00 


A 0001 


A0200 


13 


11 


1111 


1111 


14 


01 


0111 


SYMOF 


15 


00 


1021 


1049 


PACOF 


BD6 


FINDI 


FINDL 






SUB 17 


CALC 80< 




HED 


X 




SB17D 


LDD 


DEQ 


DI 


SB17I 


LDD 


IEQ 


DI 


DI 


STD 


XXXX1 






STU 


EXITY 






STL 


XXXX2 






LDD 


XXXX1 


SUB13 


SDA 


STL 


XXXX1 






DIV 


2 1 XXX 






NZU 


OD 


EV 


OD 


RAL 


8002 


EO 


EV 


RAL 


8003 


EO 


EO 


SLO 


XXXX2 






NZE 




ADD1 




RAL 


XXXX1 


EXITY 


ADD1 


RAL 


XXXX1 






ALO 


11 XXX 


EXITY 


DEQ 


00 


0008 


SDA 


IEQ 


00 


0009 


SDA 


8002 


00 


0000 


8002 


8003 


00 
HED 


0000 


8003 






SUB 18 


INDEX A 




HED 


W 




INDEX 


STD 


EXITY 






STL 


XXXX1 






RAU 


1954 






SLT 


0007 






LDD 


EXITY 






BD5 


D 






SLT 


0002 


D 


D 


SRT 


0009 






MPY 


20001 






LDD 


EXITY 






BD6 


DS 





SET DRUM 


1918 


69 


1406 


1968 


TAG TO 8 


1968 


24 


1212 


1674 


SET SWSYM 


1674 


69 


1527 


1580 


OFF 


1580 


24 


1664 


1724 


UNDEFINE 


1724 


65 


1577 


1631 


REGIONS 


1631 


10 


1406 


1774 




1774 


69 


1813 


1600 


CONSTANTS 


1624 


00 


0000 


0599 




1538 


00 


0600 


0799 




1546 


11 


1111 


1111 




1527 


01 


0111 


1218 




1577 


00 


1021 


1049 




1852 


96 


1824 


1874 



D EOUIV 


1902 


69 


1924 


1627 


I EQUIV 


1854 


69 


1974 


1627 


SAVE TAG 


1627 


24 


1961 


1526 


STORE EXIT 


1526 


21 


1813 


1576 


STORE 800X 


1576 


20 


1962 


1626 


GET OPTIM 


1626 


69 


1961 


1964 


DYNAM ADDR 


1904 


20 


1961 


1676 


IS DY ADDR 


1676 


14 


1771 


1482 


EVEN OR OD 


1482 


44 


1535 


1386 




1535 


65 


1588 


1643 




1386 


65 


1789 


1643 




1643 


16 


1962 


1726 




1726 


45 


1630 


1681 




1630 


65 


1961 


1813 




1681 


65 


1961 


1776 




1776 


15 


0992 


1813 


CONSTANTS 


1924 


00 


0008 


1904 




1974 


00 


0009 


1904 




1588 


00 


0000 


8002 




1789 


00 


0000 


8003 



STORE- EXIT 


1826 


24 


1813 


1876 


STORE ADDR 


1876 


20 


1961 


1926 




1926 


60 


1954 


1976 




1976 


35 


0007 


1693 




1693 


69 


1813 


1677 


D OR I 


1677 


95 


1680 


1532 




1532 


35 


0002 


1680 




1680 


30 


0009 


1727 




1727 


19 


1014 


1684 




1684 


69 


1813 


1777 


DRUM COR 


1777 


96 


1730 


1582 



86 



D5 
EXITY 



PROCL 



B 
SETL 



NB 

GOOOl 

G0002 

G0003 

KOOOl 

K0002 

X 

LOOOl 

L0002 

L0003 

L0004 

800X 

89X 

JOOOl 

J0002 

J0003 

DOOOl 

D0002 

SS 



G 

K 

J 

L 

D 

86TH 

87TH 

EXITX 



SRT 
ALO 

01 
HED 



REG 
REG 
REG 
REG 
REG 

HED 
STD 
RAU 
NZU 
LDD 
BDO 
RAL 
SLT 
LDD 
SDA 
LDD 
RAL 
LDD 
LDD 
LDD 
RAU 
AUP 
5TU 
STL 
AUP 
LDD 
RAU 
LDD 
STD 
RAL 
RAL 
RAU 
STL 
RAU 
AUP 

ALO 
LDD 

00 
00 
00 
00 
00 
00 
00 
01 



0001 
XXXX1 

0000 



DS 
EXITY 

EXITY 



CORE 



ERASEABLE 



1582 
1730 

1813 



30 

15 



0001 
1961 



1730 
1813 



01 0000 1813 



SUB 19 PROCESS LOCATION 



D0923 
G0925 
J0928 
K0931 
L0933 

A 
EXITX 

1951 
NB 

DRUMT 
B 
OPREG 

0004 
P0008 
P0008 
G 

1957 
K 
J 
L 

87TH 
P0010 
P0010 
OPREG 
86TH 
ORCEQ 
87TH 
ORXEQ 
OPREG 
EQUIV 
D 

87TH 
OPREG 
87TH 
HSYMB 
LSYMB 
B 

0000 
0090 
0000 
0000 
0090 
0008 
0000 
0000 



0923 
0925 
0928 
0931 
0933 



PROC L 



D0002 
SETL 



EXITX 
SUBR4 
KOOOl 

SUBR9 
SUBR6 
SUBR5 
X 

SETL 

SETL 

800X 

89X 

X 

89X 

X 

KOOOl 

SUB11 

X 

SS 

X 



SUBR7 

GOOOl 
KOOOl 
JOOOl 
LOOOl 
DOOOl 
0000 
8000 
EXITX 



STORE EXIT 


0969 


24 


1196 


1899 


IS L BLANK 


1899 


60 


1951 


1827 




1827 


44 


1731 


1632 


BLANK TEST 


1632 


69 


1212 


1877 


DRUM TAG 


1877 


90 


1781 


0924 


BLANK 


1781 


65 


1872 


1927 


SET L 


1927 


35 


0004 


1987 


TO OR 


1987 


69 


1984 


1638 




1638 


22 


1984 


1196 


WHAT IS L 


1731 


69 


1734 


1213 


ABSOLUTE 


0925 


65 


1957 


0931 


REGIONAL 


0926 


69 


1780 


1174 


SYMBOLIC 


0927 


69 


1830 


1275 


TEST RANGE 


0931 


69 


1784 


1750 


REG ERROR 


0932 


60 


1585 


1839 


SET BLANK 


1839 


10 


1986 


1392 


L8 


1392 


21 


1986 


1927 


DRUM ADDR 


0933 


20 


1872 


1927 


800X 


0934 


10 


1688 


1743 


CORE ADDR 


0935 


69 


1738 


1442 


OTHER 


0936 


60 


1585 


1839 




1743 


69 


1596 


1442 




1442 


24 


1872 


1839 


SYM DEFIND 


0928 


65 


1223 


0931 


SYM UNDEF 


0929 


65 


1682 


1801 


S TAB FULL 


0930 


60 


1585 


1839 


S EG FOUND 


0923 


20 


1872 


1628 


DRUM PAKED 


0924 


60 


1585 


1839 


STORE 


1628 


10 


1230 


1635 


SYMBOL 


1635 


15 


1575 


1880 




1880 


69 


1781 


1279 


CONSTANTS 


1734 


00 


0000 


0925 




1780 


00 


0090 


0931 




1830 


00 


0000 


0928 




1784 


00 


0000 


0933 




1682 


00 


0090 


0923 




1688 


00 


0008 


0000 




1585 


00 


0000 


8000 


ERASEABLE 


1196 


01 


0000 


1196 



87 



HED 



SUB 20 PROCESS DATA ADDRESS 





REG 


D0937 


0937 


PROC D 












REG 


F0939 


0939 














REG 


G0941 


0941 














REG 


J0944 


0944 














REG 


K0946 


0946 














REG 


L0949 


0949 














HED 


B 














PROCD 


STD 


EXITX 




STORE EXIT 


0972 


24 


1196 


1949 




RAU 


1952 




IS D BLANK 


1949 


60 


1952 


1678 




NZU 


NB 






1678 


44 


1831 


1732 




RAL 


D 


SUB11 


FIND 


1732 


65 


1685 


1801 


D0001 


STL 


ORBAL 


L0004 


OPTIMUM D 


0937 


20 


1492 


0952 


D0002 


RAU 


88TH 


X 


DRUM PAKED 


0938 


60 


1542 


1398 


BT 


LDD 


OPTIM 




IS OP 


1728 


69 


1452 


1778 




BD1 


EXITX 




A BRANCH 


1778 


91 


1196 


1783 




STL 


OPREG 


EXITX 


D TO OR 


1783 


20 


1872 


1196 


X 


AUP 


P0010 




SET BLANK 


1398 


10 


1986 


1592 




STU 


P0010 


EXITX 




1592 


21 


1986 


1196 


NB 


LDD 


G 


SUBR4 


WHAT IS D 


1831 


69 


1834 


1213 


G0001 


RAL 


1958 


J0001 


ABSOLUTE 


0941 


65 


1958 


944 


G0002 


LDD 


J 


SUBR9 


REGIONAL 


0942 


69 


1645 


1174 


G0003 


LDD 


K 


SUBR6 


SYMBOLIC 


0943 


69 


1646 


1275 


J0001 


LDD 


L 


SUBR5 


TEST RANGE 


0944 


69 


1448 


1750 


J0002 


RAU 


88TH 


X 


REG ERROR 


0945 


60 


1542 


1398 


L0001 


LDD 


AXD 


INDEX 


DRUM ADDR 


0949 


69 


1828 


1826 


L0002 


SLT 


0004 


800X 


800X 


0950 


35 


0004 


1878 


L0003 


LDD 


AXC 


INDEX 


CORE ADDR 


0951 


69 


1928 


1826 


L0004 


SLT 


0004 


SD 


OTHER 


0952 


35 


0004 


1930 


800X 


LDD 


P0007 




SET 800X D 


1878 


69 


1983 


1436 




SDA 


P0007 






1436 


22 


1983 


1486 




SRT 


0004 






1486 


30 


0004 


1498 




AUP 


XEQ 


SB17D 


GET 800X E 


1498 


10 


1881 


1902 


SCD 


SLT 


0004 




SET CORE D 


1931 


35 


0004 


1642 




LDD 


P0007 






1642 


69 


1983 


1536 




SDA 


P0007 






1536 


22 


1983 


1586 




SRT 


0004 






1586 


30 


0004 


1548 




LDD 


CEQ 


SUB13 


GET CORE E 


1548 


69 


1782 


1964 


SCEO 


STL 


ORCEQ 


BT 


SAVE CORE 


1832 


20 


1738 


1728 


K0001 


RAL 


EQUIV 


J0001 


SYM DEFIND 


0946 


65 


1223 


944 


K0002 


RAL 


F 


SUB11 


SYM UNDEF 


0947 - 


65 


1882 


1801 


K0003 


RAU 


88TH 


X 


S TAB FULL 


0948 


60 


1542 


1398 


F0001 


STL 


EQ 


SS 


SAVE EQ 


0939 


20 


1793 


1696 


F0002 


RAU 


88TH 


X 


DRUM PAKED 


0940 


60 


1542 


1398 


SS 


AUP 


HSYMB 




STORE 


1696 


10 


1230 


1735 




ALO 


LSYMB 




SYMBOL 


1735 


15 


1575 


1932 




LDD 




SUBR7 




1932 


69 


1785 


1279 




RAL 


EQ 


L0004 




1785 


65 


1793 


0952 


SD 


LDD 


P0007 




SET D ADDR 


1930 


69 


1983 


1636 




SDA 


P0007 






1636 


22 


1983 


1686 




SRT 


0004 


BT 




1686 


30 


0004 


1728 



88 



D 


00 


0088 


DOOOl 


G 


00 


0000 


G0001 


J 


00 


0088 


JOOOl 


L 


00 


0000 


LOOOl 


F 


00 


0088 


FOOOl 


K 


00 


0000 


KOOOl 


AXD 


00 


0088 


DOOOl 


AXC 


00 


0098 


SCD 


XEQ 


STL 


ORXEQ 


BT 


CEQ 


00 


0008 


SCEQ 


88TH 


00 


0000 


0800 


EQ 


01 
HED 


0000 


EQ 






SUB 21 


PROCESS 




REG 


D0953 


0953 




REG 


F0955 


0955 




REG 


G0958 


0958 




REG 


J0960 


0960 




REG 


K0962 


0962 




REG 


L0965 


0965 




HED 


C . 




PROCI 


STD 


EXITX 






RAU 


1953 






NZU 


NB 






RAU 


1952 






NZU 


DNB 






LDD 


DRUMT 






BDO 




G0002 




RAL 


ORBAL 


L0004 


DNB 


RAL 


D 


SUB11 


DOOOl 


STL 


ORBAL 


L0004 


D0002 


RAL 


P0010 


X 


X 


ALO 


89TH 






STL 


P0010 


EXITX 


NB 


LDD 


F 


SUBR4 


FOOOl 


RAL 


1959 


JOOOl 


F0002- 


LDD 


J 


SUBR9 


F0003 


LDD 


K 


SUBR6 


JOOOl 


LDD 


L 


SUBR5 


J0002 


RAL 


P0010 


X 


LOOOl 


LDD 


AXD 


INDEX 


L0002 


LDD 


P0007 


800X 


L0003 


LDD 


AXC 


INDEX 


L0004 


LDD 


P0007 






SIA 


P0007 


MOR 


800X 


SIA 


P0007 






AUP 


XEQ 


SB17I 


90XX 


LDD 


P0007 






SIA 


P0007 






LDD 


CEQ 


SUB13 


KOOOl 


RAL 


EQUIV 


JOOOl 



CONSTANTS 


1685 


00 


0088 


0937 




1834 


00 


0000 


0941 




1645 


00 


0088 


944 




1448 


00 


0000 


949 




1882 


00 


0088 


0939 




1646 


00 


0000 


0946 




1828 — 


00 


0088 


0937 




1928 


00 


0098 


1931 




1881 


20 


1596 


1728 




1782 


00 


0008 


1832 




1542 


00 


0000 


0800 


ERASEABLE 


1793 


01 


0000 


1793 



PROC I 



STORE EXIT 


1453 


24 


1196 


1833 


IS I BLANK 


1833 


60 


1953 


1883 




1883 


44 


1788 


1838 


IS D BLANK 


1838 


60 


1952 


1933 




1933 


44 


1888 


1938 


D I BLANK 


1938 


69 


1212 


1884 


TEST DRUM 


1884 


90 


1988 


0959 


TAG 


1988 


65 


1492 


0968 


FIND BEST 


1888 


65 


1692 


1801 


FOUND 


0953 


20 


1492 


0968 


DRUM PAKED 


0954 


65 


1986 


1742 




1742 


15 


1695 


1934 




1934 


20 


1986 


1196 


WHAT IS I 


1788 


69 


1792 


1213 


ABSOLUTE 


0955 


65 


1959 


0960 


REGIONAL 


0956 


69 


1835 


1174 


SYMBOLIC 


0957 


69 


1885 


1275 


TEST RANGE 


0960 


69 


1935 


1750 


REG ERROR 


0961 


65 


1986 


1742 


DRUM ADDR 


0965 


69 


1736 


1826 


800X 


0966 


69 


1983 


1786 


CORE ADDR 


0967 


69 


1836 


1826 


OTHER 


0968 


69 


1983 


1886 




1886 


23 


1983 


1936 




1786 


23 


1983 


1889 


GET 800X E 


1889 


10 


1842 


1854 


SET CORE 


1939 


69 


1983 


1989 


ADDRESS 


1989 


23 


1983 


1440 


GET CORE E 


1440 


69 


1843 


1964 


SYM DEFIND 


0962 


65 


1223 


0960 



89 



K0002 


RAL 


G 


SUB11 


K0003 


RAL 


P0010 


X 


G0001 


LDD 


P0007 


SI 


G0002 


RAL 


P0010 


X 


SI 


SIA 


P0007 






AUP 


HSYMB 






ALO 


LSYMB 






LDD 


MOR 


SUBR7 


MOR 


LDD 


ORBAL 






STD 


OPREG 


EXITX 


SCEO 


STL 


ORCEQ 


MOR 


D 


00 


0089 


D0001 


F 


00 


0000 


F0001 


J 


00 


0089 


J0001 


K 


00 


0000 


K0001 


L 


00 


0000 


L0001 


G 


00 


0089 


G0001 


89TH 


00 


0000 


0080 


AXD 


00 


0089 


L0004 


AXC 


00 


0099 


90XX 


XEQ 


STL 


ORXEO 


MOR 


CEQ 


00 
HED 


0009 


SCEQ 


1IXXX 


00 


0000 


0001 


1DXXX 


00 


0001 


0000 


2IXXX 


' 00 


0000 


0002 


2DXXX 


00 


0002 


0000 


H8XXX 


80 


0000 


0000 


H9XXX 


90 


0000 


0000 


90XXX 


00 


0000 


0090 


29XXX 


00 


0000 


0029 


20001 


- 00 


0000 


2000 


TORG 


00 


0000 


T0001 



SYM UNDEF 


0963 


65 


1490 


1801 


S TAB FULL 


0964 


65 


1986 


1742 


FOUND BEST 


0958 


69 


1983 


1540 


DRUM PAKED 


0959 


65 


1986 


1742 




1540 


23 


1983 


1590 


STORE 


1590 


10 


1230 


1640 


SYMBOL 


1640 


15 


1575 


1690 




1690 


69 


1936 


1279 


SET OR 


1936 


69 


1492 


1745 


TO ORB 


1745 


24 


1872 


1196 


SAVE CORE 


1740 


20 


1738 


1936 


CONSTANTS 


1692 


00 


0089 


0953 




1792 


00 


0000 


0955 




1835 


00 


0089 


0960 




1885 


00 


0000 


0962 




1935 


00 


0000 


0965 




1490 


00 


0089 


0958 




1695 


00 


0000 


0080 




1736 


00 


0089 


0968 




1836 


00 


0099 


1939 




1842 


20 


1596 


1936 




1843 


00 


0009 


1740 


CONSTANTS 


0992 


00 


0000 


0001 




1020 


00 


0001 


0000 




1771 


00 


0000 


0002 




1288 


00 


0002 


0000 




1406 


80 


0000 


0000 




1216 


90 


0000 


0000 
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